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Apple, logique et systèmes 
experts, 

par René DESCAMPS. 

224 pages - 120,00 FF. 

12 programmes en Basic, 4 
fichiers proposent de cons- 
truire un “moteur d'inféren- 
ce” capable de trouver la so- 
lution d'énigmes et de bâtir 
des raisonnements. 


Basic Plus 80 routines sur 
Apple II, 

par Michel MARTIN. 

144 pages - 95,00 FF. 

Basic Plus vous propose 
80 routines pour “muscler” 
votre machine, 80 manières 
de simuler des fonctions 
que vous n'auriezjamais cru 
pouvoir utiliser. 


Exploitation d'enquêtes sur 
Apple II et IBM/PC, 


mms 27 J.-F. GRIMMER. 


176 pages - 120,00 FF. 
L'ensemble des program- 
mes proposés permet d’ex- 


En vente en librairie, en boutique informatique et auprès de P.S.I. Diffusion 


















Diététique sur Apple II, 
224 pages - 120,00 FF. 

Mangez équilibré grâ 
votre ordin 





grâce à 







Apple en famille, 

par J.-F. SEHAN 

232 pages - 120,00 FF. 

40 programmes utiles en 
Basic. 


Super Jeux Apple. 

256 pages - 120,00 FF. 

50 programmes de jeux en 
Basic sur Apple. 


Apple, modems et serveurs, 
par Alain MARIATTE. 

224 pages - 130,00 FF. 

Pour apprendre à se ser- 
vir d'un modem et se 
familiariser avec les outils 
télématiques. 
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Editorial 


laser et 100 % Apple pour la préparation de Pom's à 
partir de ce numéro. Contribuent aux pages qui suivent : 
© des Macs 128 et 512 Ko, une imprimante à laser, des 
Apple ][+, lle, lc, des liaisons série pour que ce beau 


monde communique, MacPaint, MacDraw, MacWrite, AppleWriter et quelques 
programmes ‘maison’. Cela pour une présentation que vous trouverez, nous l'espérons, 
améliorée et qui prendra certainement son aspect définitif dès le numéro 21. 


Les congés vous ont permis, si ce n'est de bronzer, tout au moins de penser à Pom's. Nous 
recevons de nombreuses contributions qui nous promettent de belles pages pour les 
prochains numéros : continuez ! 


Toujours un sommaire fourni : 


De nouvelles fonctions accessibles par l'& après un simple BRUN : tel est l'objet du 
programme de Sylvie Gallet. Une utilisation originale de votre carte langage — y stocker 
des variables chaînes de longueur fixe — il s'agit d'un utilitaire de Hervé 
Roy-Contancin. 


Deux articles consacrés à ProDOS dans ce numéro : 

+ une très belle de contribution de François Sermier qui permet de disposer de DOS et 
ProDOS simultanément en mémoire. Pourquoi ne pas éditer vos programmes Basic 
avec EPE sous DOS puis les sauvegarder sous ProDOS ? 

+ une étude approfondie des appels en assembleur par Alexandre Avrane avec la mise 
en place de commandes externes, un Tdump et un Init qui faisaient défaut. 

Gérard Becher a écrit un programme de copie d'écran sur Silentype qui, outre son 

aspect pratique pour les possesseurs de ces imprimantes, présente un intérêt didactique 

pour tous par son source particulièrement commenté. Dans le même esprit, avec Pascal 

Cantot, les Asl, Lsr, Rol et Ror ne devraient plus avoir de secret pour vous. 

Egalement, un volumineux programme assembleur de Jean-Luc Arnaud pour éditer le 

catalogue de vos disquettes. 

Converti au 68000, nous retrouvons Gérard Michel dans le cahier Mac. Belle 

contribution de Jean-Luc Bazanegue et Christian Piard : La gestion de vos comptes 

bancaires personnels sur Macintosh, présentation "Macintosh" bien qu'exceptionnellement 
sans coccinelle !.… 

Et, comme à l'accoutumée, les rubriques de Jean-Michel Gourévitch et Olivier 

Herz. 

Hervé Thiriez 


Ont collaboré à ce numéro : Alexandre Avrane, Jean-Luc Arnaud, Jean-Luc Bazanegue, Gérard 
Becher, Pascal Cantot, Sylvie Gallet, Jean-Michel Gourévitch, Olivier Herz, Gérard Michel, Hervé 
Roy-Contancin, François Sermier. 


Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Editions MEV, 49, rue Lamartine, 78000 Versailles. Tél : (3) 951 24 43. 
Publicité : Editions MEV. 

Diffusion : N. M. P. P. 

Impression : Rosay, 47, avenue de Paris, 94300 Vincennes. Tél : (1) 328 18 63. 
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Quatre fonctions 
pour le Basic 


e programme présenté 
ici est classique, mais 


Sylvie Gallet 
est d'une grande utili- 


L té pour les program- 


meurs en Basic. En effet, par 

l'intermédiaire de l'ampersand, il 

permet : 

° de supprimer les REMs d'un 
programme Basic. Toutefois, 1l 
ne tient pas compte des 
GOTOs et des GOSUBs ; 

+ d'éditer une ligne de program- 
me, sans introduire d'espace 
superflu. Un petit problème 
subsiste : il s'agit des REMs 
comportant un CTRL-J ; 

+ le POKE 33,28 (bien prati- 
que) ; 

+ l'accès au Mini-Assembleur ; 
celui-ci a été relogé en $8A9A 
mais peut être aussi appelé par 
$8C00G ; 

+ l'accès à toutes les fonctions 
du RENUMBER de la dis- 
quette Maître. 


Mode d'emploi 


En lancant le programme COM- 
MANDES, vous obtiendrez la 
liste des commandes autorisées 
ainsi que leur syntaxe. Le 
programme UTILITAIRES con- 
tient déjà RENUMBER et le 
Mini-Assembleur. Il ajuste 
lui-même la HIMEM et le vecteur 
ampersand (&). Il se lance par : 


Programme 
UTILITAIRES SCE 
(Assembleur LISA 2.5) 


; 
RRRRRRRRRRRRRÉRRRÉRRRRÉRRÉRRARÉÉRÉRÉAÉ 
* * 


UTILITAIRES DE BASIC 


Jo Un »e UN 
. 


* * 
* * 
* * 


S. GALLET 27-2-1985 


BRUN UTILITAIRES, A$8A8E 


Il y a une petite précaution à 
prendre. Après MAXFILES, 
HIMEM ou FP, il est indispen- 
sable de relancer UTILITAIRES. 


Les commandes 


La syntaxe 


- &P effectue successivement un 
HOME et un POKE 33,28 

- &LNNN liste la ligne de 
programme dont le numéro est 
donné par NNN 

- &C supprime les REMarques 
du programme 

- & A donne accès au Mini- 
Assembleur (Basic) 

- 8C00G pour le Mini-Assem- 
bleur (Moniteur) 


Pour le RENUMBER, la syntaxe 

est un peu plus lourde. Il faudra 

taper : "RENUMBER:&" suivi 

des paramètres F, I, S, E, H, M. 

Ces paramètres représentent res- 

pectivement : 

+ le premier nouveau numéro de 
ligne (first); 

+ l'incrément ; 

+ le numéro de la première ligne 
à renuméroter (start); 

+ _le numéro de la dernière ligne à 
renuméroter (end); 

+ la protection du programme 
pour fusion (hold); 

+ la réalisation de la fusion 


8 * * 
9 RRRRRRRRRRRRERRRRRRRRRRRÉRÉRRÉRARÉ 
10 ; 

11 ; 

12 STXERR EQU $DEC9 

13 HOME EQU $FC58 

14 FRMNUM  EQU SDD67 

15 GETADR  EQU $E752 

16 FNDLIN EQU $D61A 

17 ILLOTY EQU $E199 

18 OUTDO  EQU $DB5C 

19 GIVAYF EQU $E2F2 

20 MOVAF  EQU $EB63 


(merge); 
Pour les utilisateurs n'ayant pas 
la disquette d'accompagnement, 
voilà comment il faut procéder 
pour RENUM et MINI : 
] FP (HIMEM: 38400 soit 
$9600 en hexa) 
] RUN RENUMBER 
JBSAVE RENUM, A$8E00, 
L$800 
] BLOAD INTBASIC, A$6000 
] CALL-151 


* 8535: 4C 2F 8B 
* 8559: 4C 2F 8B 
* 85BD: 20 CE 8B 
* 85DB: 20 CE 8B 
* 85E5: 20 CE 8B 
* 8631: 4C F6 8A 
* 8666: 4C 2C 8B 


* BSAVE MINI, A$8500, 
L$170 

* BLOAD MINI, AS8A9A 
* BSAVE MINI, A$8A9A, 
L$170 

* BLOAD UTILITAIRES OBJ, 
A$8A8E 

* BLOAD MINI 

* BLOAD RENUM 

* BSAVE UTILITAIRES, 
ASBABE, L$B72 


G 





21 FDIVT EQU $EA69 
22 CONINT EQU $E6FB 
23 LINPRNT EQU $ED24 
24 CRDO EQU $DAFB 
25 BASIC EQU $FEB3 
26 SIGNFLT EQU $E301 
27 AMPER EQU $3F5 

28 RENUMBER EQU $8E00 
29 MINI EQU $8C00 


31 LARGFEN EPZ $21 
32 CHRGET EPZ $B1l 
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33 LOWTR EPZ $9B 103 JMP MINI 173 BPL PRINT 
34 LINNUM  EPZ $50 104 TS: 174 TOKEN: 

35 AUXIL EPZ $85 105 JMP RENUMBER 175 SEC 

36 FAC EPZ $9D 106 ERR: 176 SBC #$7F 

37 CV EPZ $25 107 JMP STXERR Y77 TAX 

38 CH EPZ $24 108 ; 178 STY AUXIL 
39 LT EPZ $FE 109 ; 179 LDY #$D0 

40 TXITPTR  EPZ $B8 110 POKE: 180 STY FAC 

41 AUX EPZ $FC 111 ;-——— 181 LDY #$CF 

42 HIMEM EPZ 573 112 JSR CHRGET 182 STY FAC+1 
43 CAR.LU EPZ $FA 113 BNE ERR 183 LDY #$FF 

44 CAR.ECR EPZ SFC 114 JSR HOME 184 LIT: 

45 LS EPZ $FE 115 LDA #$1C 185 DEX 

46 TEMP EPZ $F9 116 STA LARGFEN 186 BEQ BONTOKEN 
47 PAGEND EPZ $AF 117 RTS 187 LITI: 

48 TXTTAB EPZ $67 118 : 188 JSR INCR.Y1 
49 ; 119 ; 189 BPL LITI 

50 ; 120 EDIT: 190 BMI LIT 

51 ORG $8A8E 121 ;-—-- 191 BONTOKEN: 

52 OBJ $800 122 LDA TXTPTR 192 LDA #$20 

53 ÿ 123 STA AUX 193 JSR OUTDO1 
54 RRRRRRARARÉARRRRRRÉRRRRRARRRÉRÉRÉRÉÉ 124 LDA TXTPTR+1 194 PRNTINST: 

55 >; 125 STA AUX+1 195 JSR INCR.Y1 
56 ORIGINE: 126 LITCAR: 196 BMI DERNCAR 
57 7; 127 JSR CHRGET 197 JSR OUTDO1 
58 NoP 128 BCC LITCAR 198 BNE PRNTINST 
59 LDA #ORIGINE 129 BNE ERR 199 DERNCAR: 

60 STA HIMEM 130 LDA AUX 200 JSR OUTDO1 
61 LDA /ORIGINE 131 STA TXTPTR 201 LDY AUXIL 
62 STA HIMEM+1 132 LDA AUX+1 202 LDA #$20 

63 JMP INIT 133 STA TXTPTR+1 203 PRINT: 

64 ; 134 INC TXTPTR 204 JSR OUTDO1 
65 *RKRRARÉAKKX ERA AK A KR AK RÉ KK AA À XX 135 BNE CALCFORM 205 JMP BOUCLE 
66 ; 136 INC TXTPTR+1 206 FIN: 

67 ;DEBUT DU MINI ASSEMBLEUR 137 CALCFORM: 207 LDA LT+1 

68 ; 138 JSR FRMNUM 208 LDY LT 

69 ;FIN DU MINI ASSEMBLEUR 139 BCS ERR 209 JSR GIVAYF 
70 MINIASD: 140 JSR GETADR 210 JSR MOVAF 
71 s 141 LDA #$F9 211 LDY LARGFEN 
72 RARARAARRAR RARE AK KE AK AR À KE À À À 142 CMP LINNUM+1 222 JSR SIGNFLT 
73 ; 143 BCS CHLIGN 213 JSR FDIVT 
74 ORG MINIASD+$170 144 JMP ILLOTY 214 JSR CONINT 
75 OBJ $97C 145 CHLIGN: 215 TXA 

76 ; 146 JSR FNDLIN 216 EOR #$FF 

77 INIT: 147 BCS PRTLIGN 217 CLC 

78 ;—--- 148 JMP STOP 218 ADC CV 

79 LDA #$4C 149 PRTLIGN: 219 BMI STOP 

80 STA AMPER 150 JSR CRDO 220 CMP #$18 

81 LDA #DEBUT 151 JSR CRDO 221 BPL STOP 

82 STA AMPER+1 152 LDA #$20 222 STA CV 

83 LDA /DEBUT 153 JSR OUTDO1 223 STOP: 

84 STA AMPER+2 £ 154 LDA #$20 224 : JMP BASIC 
85 JMP BASIC 155 JSR OUTDO1 225 ; 

86 DEBUT: 156 LDA LINNUM+1 226 ; 

7 s————— 157 LDX LINNUM 227 *** SOUS-PROGRAMMES *** 
88 T1: 158 JSR LINPRNT 228 ; 

89 CMP #'P' 159 LDA CH 229 ; 

90 BNE T2 160 STA LT 230 OUTDO1: 

91 JMP POKE 161 LDA #$00 29h jee 

92 T2: 162 STA LT+1 232 JSR OUTDO 
93 CMP #'L' 163 LDA #$20 233 INC LT 

94 BNE T3 164 JSR OUTDO1 234 BNE RETURN 
95 JMP EDIT 165 LIST: 235 INC LT+1 

96 T3: 166 LDY #53 236 RETURN: 

97 CMP #'c' 167 BOUCLE: 237 RTS 

98 BNE T4 168 JSR INCR.Y2 238 ; 

99 JMP COMPACTE 169 LDA (LOWTR),Y 239 ; 
100 T4: 170 BNE SUITE 240 INCR.Y1: 
101 CMP #'A' 171 JMP FIN 241 7 
102 BNE T5 172 SUITE: 242 INY 
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243 BNE MPAGI 289 ORA TEMP 335 RTS 

244 INC FAC+1 290 BEQ FIN.REM 336 ,; 

245 MPAG1: san LDX #$2 337 ECRIRE INC CAR.ECR 
246 LDA (FAC),Y 292 BX2 JSR LIRE 338 BNE E 

247 RTS 293 JSR ECRIRE 339 INC CAR.ECR+1 
248 ; 294 DEX 340 E STA (CAR.ECR),Y 
249 ; 295 BNE BX2 341 RTS 

250 INCR.Y2: 296 JMP DEBUTREM 342 : 

20L mm 297 FIN.REM JSR ECRIRE 343 LIRE INC CAR. LU 

252 INY 298 JSR ECRIRE 344 BNE L 

253 BNE MPAG2 299 LDA CAR.ECR 345 INC CAR.LU+1 
254 INC LOWTR+1 300 STA PAGEND 346 L LDA CAR.LU+1 
255 MPAG2: 301 LDA CAR.ECR+1 347 CMP PAGEND+1 
256 RTS 302 STA PAGEND+1 348 BNE LL 

257 ? 303 JMP BASIC 349 LDA CAR.LU 

258 :; 304 SUITEREM CMP #5$B2 350 CMP PAGEND 

259 KRAAKRRKRRRRRRRRRRRÉRRÉRÉRÉRÉÉRÉÉ 305 BEQ REM 351 BNE TE 

260 ; 306 JSR ECRIRE 352 UMP FIN.REM 
261 ; 307 JMP DEBUTREM 353 LL LDA (CAR.LU),Y 
262 ; 308 REM LDA #53 354 RTS 

263 COMPACTE: 309 CLC 355 : 

264 3" 310 ADC LS 356 CHAINER LDA CAR.ECR 
265 > 311 PHP 357 CEC 

266 INIT.REM LDY #50 312 CMP CAR.ECR 358 ADC #51 

267 LDA TXTTAB 313 BNE NON 359 STA (LS),Y 

268 STA LS 314 LDA #$0 360 LDA CAR.ECR+1 
269 CLC ; 315 PLP 361 ADC #$0 

270 ADC #53 316 ADC LS+1 362 INY 

271 STA CAR. LU 317 CMP CAR.ECR+1 363 STA (LS),Y 

272 STA CAR.ECR 318 BNE NON 364 DEY 

273 LDA TXTTAB+1 319 REM.FL LDA #$4 365 STA LS+1 

274 STA LS+1 320 STA TEMP 366 LDA CAR.ECR 
275 ADC #$0 321 JSR DECALE 367 STA LS 

276 STA CAR.LU+1 322 JMP TESTFIN 368 INC LS 

277 STA CAR.ECR+1 323 NON LDA #$1 369 RTS 

248 7 324 STA TEMP 370 ; 

279 DEBUTREM JSR LIRE 325 JSR DECALE CHR LLLLLLLLLLLLELLLELLLLLLLELELESEE) 
280 BNE SUITEREM 326 JMP ZFL 372 ; 

281 ZFL JSR ECRIRE 327 DECALE LDA CAR.ECR 373 :RENUMBER SE TROUVE ICI 
282 JSR CHAINER 328 SEC 374 ; 

283 TESTFIN LDX #52 329 SBC TEMP 375 * XX AK KK AK HA KA AH AK AK AK À KA KR À 
284 BX1 STA TEMP 330 BCS Xx 376 : 

285 JSR LIRE 331 DEC CAR.ECR+1 377 FINAL: 

286 JSR ECRIRE 332 X STA CAR.ECR 378 : 

287 DEX 333 BOUCLE.L JSR LIRE 379 LONGUEUR EQU FINAL-ORIGINE 
288 BNE BX1 334 BNE BOUCLE.L 380 END 





Programme COMMANDES 


10 TEXT : HOME : SPEED= 255:D$ = CHRS (4) 


20 PRINT * COMMANDES:" 1ER NOUVEAU NUMERO" 
30 PRINT : PRINT "-8C00G MINI ASSEMBLEUR 70 PRINT"-1  INCREMENT": PRINT "-S  1ERE 
(MONITEUR)" PRINT *- &A MINI ASSEMBLEUR LIGNE A RENUMEROTER" 
(BASIC) 80 PRINT"-E DERNIERE LIGNE A RENUMEROTER" 
40 PRINT : PRINT" -&P  HOME+POKE33,28": PRINT : 90 PRINT "-H  PROTEGE LE PRGM POUR FUSION": 
PRINT" - &LNNN LISTE LA LIGNE NNN POUR": PRINT"-M  REALISE LA FUSION" 
PRINT " EDITION" 100 PRINT : PRINT "ATTENTION! APRES 'MAXFILES, 
50 PRINT : PRINT "-&C SUPPRIME LES "HIMEM' OU 'FP", IL FAUT RELANCER 
REMARQUES" ‘UTILITAIRES"" 


60 PRINT : PRINT "RENUMBER: & SUIVI DE:": PRINT " -F 110 PRINT D$"BRUNUTILITAIRES" 
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Récapitulation 8C70- A9 F9 C5 51 BO 03 4C 99 BAA8- 18 ES 3A 85 3E 10 01 C8 
UTILITAIRES OBJ 8c78- El 20 1A D6 BO 03 4C OC 8ABO0- 98 E5 3B DO 6B A4 2F B9 
8C80- 8D 20 FB DA 20 FB DA A9 8AB8- 3D 00 91 3A 88 10 F8 20 

8A8E- EA A9 8C88- 20 20 OF 8D A9 20 20 OF 8ACO- 1A FC 20 1A FC 20 DO F8 
8A90- 8E 85 73 A9 8A 85 74 4C 8C90- 8D A5 51 A6 50 20 24 ED 8AC8- 20 53 F9 84 3B 85 3A 4C 
8A98- OA 8C AS 8D 9F A5 A9 9D 8C98- A5 24 85 FE A9 00 85 FF 8AD0- 2F 8B 20 BE FF A4 34 20 
8AAO0- 8D 7C AS 8D AO A5 A9 EA 8CAO0- A9 20 20 OF 8D A0 03 20 8AD8- A7 FF 84 34 AO 17 88 30 
8AA8- 8D DF A6 8D EO A6 20 58 8CA8- 21 8D B1l 9B DO 03 4C E9 8AEO- 4B D9 CC FF DO F8 CO 15 
8AB0- FC A2 00 BD 30 08 FO 17 8CB0O- 8C 10 30 38 E9 7F AA 84 8AE8- DO E8 A5 31 AO 00 C6 34 
8AB8- 20 ED FD E8 DO F5 8D CC 8CB8- 85 AO DO 84 9D AO CF 84 8AFO- 20 00 FE 4C 2F 8B A5 3D 
8ACO- CF C1 C4 C9 CE C7 AO CC 8CCO- 9E AO FF CA FO 07 20 19 8AF8- 20 8E F8 AA BD 00 FA C5 
8AC8- C9 D3 C1 AE AE AE 00 AD 8CC8- 8D 10 FB 30 F6 A9 20 20 8B00- 42 DO 13 BD CO F9 C5 43 
8AD0- 83 CO AD 83 CO A9 00 8D 8CDO- OF 8D 20 19 8D 30 05 20 8B08- DO OC A5 44 A4 2E CO 9D 
8AD8- 00 EO AD 00 EO DO 70 A9 8CD8- OF 8D DO F6 20 OF 8D A4 8B10- FO 88 C5 2E FO 9F C6 3D 
8AEO- FF 8D 00 EO AD 00 EO C9 8CEO0- 85 A9 20 20 OF 8D 4C A7 8B18- DO DC E6 44 C6 35 FO D6 
8AE8- FF DO 64 AO 00 AD 89 CO 8CE8- 8C A5 FF A4 FE 20 F2 E2 8B20- A4 34 98 AA 20 4A F9 A9 
8AFO- AD 89 CO B9 8B 08 FO 07 8CFO0- 20 63 EB A4 21 20 O1 E3 8B28- DE 20 ED FD 20 3A FF A9 
8AF8- 20 ED FD C8 4C 65 08 AD 8CF8- 20 69 EA 20 FB E6 8A 49 8B30- Al 85 33 20 67 FD 20 C7 
8B00- 83 CO AD 83 CO AD 83 CO 8D00- FF 18 65 25 30 06 C9 18 8B38- FF AD 00 02 C9 AO FO 13 
8B08- AO 00 B9 A6 08 FO 07 20 8D08- 10 02 85 25 4C B3 FE 20 8B40- C8 C9 A4 FO 92 88 20 A7 
8B10- ED FD C8 4C 7C 08 4C 00 8D10- 5C DB E6 FE DO 02 E6 FF 8B48- FF C9 93 DO D5 8A FO D2 
8B18- EO 8D 84 C2 CC CF C1 C4 8D18- 60 C8 DO 02 E6 9E B1 9D 8B50- 20 78 FE A9 03 85 3D 20 
8B20- AO C1 D3 CD AE C3 CF C4 8D20- 60 C8 DO 02 E6 9C 60 AO 8B58- CE 8B OA E9 BE C9 C2 90 
8B28- C5 AE B1 AC C1 A4 C4 BO 8D28- 00 A5 67 85 FE 18 69 03 8B60- C1 OA OA A2 04 OA 26 42 
8B30- BO BO 8D 00 8D 84 C2 CC 8D30- 85 FA 85 FC A5 68 85 FF 8B68- 26 43 CA 10 F8 C6 3D FO 
8B38- CF C1 C4 AO C1 D3 CD AE 8D38- 69 00 85 FB 85 FD 20 C4 8B70- F4 10 E4 A2 05 20 CE 8B 
8B40- C3 CF C4 C5 AE B2 AC C1 8D40- 8D DO 36 20 BB 8D 20 DC 8B78- 84 34 DD B4 F9 DO 13 20 
8B48- A4 C4 BO BO BO 8D 00 A9 8D48- 8D A2 02 85 F9 20 C4 8D 8B80- CE 8B DD BA F9 FO OD BD 
8B50- 01 8D B1 AA A2 00 BD D6 8D50- 20 BB 8D CA DO F5 05 F9 8B88- BA F9 FO 07 C9 A4 FO 03 
8B58- 08 FO 06 20 ED FD E8 DO 8D58- FO OE A2 02 20 C4 8D 20 8B90- A4 34 18 88 26 44 EO 03 
8B60- F5 4C 00 60 8D 84 CD C1 8D60- BB 8D CA DO F7 4C 3E 8D 8B98- DO OD 20 A7 FF A5 3F FO 
8B68- D8 C6 C9 CC C5 D3 AO B1 8D68- 20 BB 8D 20 BB 8D A5 FC 8BAO0- 01 E8 86 35 A2 03 88 86 
8B70- 8D 84 C2 CC CF C1 C4 AO 8D70- 85 AF A5 FD 85 BO 4C B3 8BA8- 3D CA 10 C9 AS 44 OA OA 
8B78- C1 D3 CD AE C3 CF C4 C5 8D78- FE C9 B2 FO 06 20 BB 8D 8BB0- 05 35 C9 20 BO 06 A6 35 
8B80- AC C1 A4 B6 BO BO BO 8D ©  8D80- 4C 3E 8D A9 03 18 65 FE 8BB8- FO 02 09 80 85 44 84 34 
8B88- 00 00 00 00 B7 FF FF FF 8D88- 08 C5 FC DO 13 A9 00 28 8BCO- B9 00 02 C9 BB FO 04 C9 
8B90- 61 O1 FE FE O1 O1 FF FF 8D90- 65 FF C5 FD DO OA A9 O4 8BC8- 8D DO 80 4C F6 8A B9 00 
8B98- 01 O1 FE FF O1 O1 FF FF 8D98- 85 F9 20 AA 8D 4C 49 8D 8BD0O- 02 C8 C9 AO FO F8 60 20 
8BAO- E1 01 FE FE O1 O1 FF FF 8DAO0- A9 01 85 F9 20 AA 8D 4C 8BD8- 7D F4 AS F8 10 13 C9 8E 
8BA8- O1 01 FE FF O1 O1 FE FF 8DA8- 43 8D AS FC 38 ES5 F9 BO 8BEO- DO F5 24 F9 10 OA A5 FB 
8BBO- 21 01 FE FE 01 00 FF FF 8DBO- 02 C6 FD 85 FC 20 C4 8D 8BE8- FO 06 E6 FA DO 02 E6 F9 
8BB8- 00 00 FE FF 01 O0 FE FF 8DB8- DO FB 60 E6 FC DO 02 E6 8BF0- 60 A9 00 85 F9 85 FA 60 
8BCO- 41 01 FE FE 01 00 FF FF 8DC0- FD 91 FC 60 E6 FA DO 02 8BF8- FF FF FF FF FF FF FF FF 
8BC8- 00 00 FE FF 01 O0 FF FF 8DC8- E6 FB A5 FB C5 BO DO 09 8C00- 4C 2C 8B 84 58 86 57 85 
8BD0- 41 01 FE FE 01 O1 FF FF 8DD0- A5 FA C5 AF DO 03 4C 68 8Cc08- 56 08 A9 4C 8D F5 03 A9 
8BD8- 01 O1 FE FF 01 O1 FE FE 8DD8- 8D B1 FA 60 A5 FC 18 69 8C10- 1C 8D F6 03 A9 8C 8D F7 
8BEO- 01 O1 FE FE 01 00 FF FE 8DEO- 01 91 FE AS FD 69 00 C8 8c18- 03 4C B3 FE C9 50 DO 03 
8BE8- 00 00 FE FE 01 O1 FE FE 8DE8- 91 FE 88 85 FF A5 FC 85 8C20- 4C 3E 8C C9 4C DO 03 4C 
8BFO0- 61 01 FE FE 01 00 FE FE 8DFO- FE E6 FE 60 8C28- 4B 8C C9 43 DO 03 4C 27 
8BF8- 00 00 FE FE 01 O0 FE FF 8C30- 8D C9 41 DO 03 4C 00 8C 
8C00- 81 01 FE FE 01 O0 FF FF | 8C38- 4C 00 8E 4C C9 DE 20 B1 
8C08- 01 01 A9 4C 8D F5 03 A9 M ET a tn 8C40- 00 DO F8 20 58 FC A9 1C 
8C10- 1C 8D F6 03 A9 8C 8D F7 Récapitulation 8C48- 85 21 60 A5 B8 85 FC AS 
8C18- 03 4C B3 FE C9 50 DO 03 8C50- B9 85 FD 20 B1 00 90 FB 
8C20- 4C 3E 8C C9 4C DO 03 4C UTILITAIRES 8C58- DO E1 A5 FC 85 B8 A5 FD 
8C28- 4B 8C C9 43 DO 03 4C 27 Est constitué des fichiers 8C60- 85 B9 E6 B8 DO 02 E6 B9 
8C30- 8D C9 41 DO 03 4C 00 8C UTILITAIRES OBJ, MINI, RENUM. 8C68- 20 67 DD BO CE 20 52 E7 
8C38- 4C 00 8E 4C C9 DE 20 B1 C'est le seul fichier nécessaire 8C70- A9 F9 C5 51 BO 03 4C 99 
8C40- 00 DO F8 20 58 FC A9 1C à l'obtention des 4 fonctions. 8C78- El 20 1A D6 BO 03 4C OC 
8C48- 85 21 60 A5 B8 85 FC AS 8C80- 8D 20 FB DA 20 FB DA A9 
8C50- B9 85 FD 20 B1 00 90 FB 8A8E- EA A9 8C88- 20 20 OF 8D A9 20 20 OF 
8C58- DO E1 A5 FC 85 B8 A5 FD 8A90- 8E 85 73 A9 8A 85 74 4C 8C90- 8D A5 51 A6 50 20 24 ED 
8C60- 85 B9 E6 B8 DO 02 E6 B9 8A98- OA 8C E9 81 4A DO 14 A4 8C98- A5 24 85 FE A9 00 85 FF 
8C68- 20 67 DD BO CE 20 52 E7 8AAO- 3F A6 3E DO 01 88 CA 8A 8CA0- A9 20 20 OF 8D AO 03 20 
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92A8- 94 4C 86 92 AD D3 94 OD 9408- BO 06 20 B2 94 90 C9 60 9568- 4F 4E 20 48 4F 4C 44 2C 

92B0- D4 94 FO 05 AO 85 4C AO 9410- 68 68 AO D6 4C AO 92 AO 9570- 20 55 53 45 20 22 26 4D 

92B8- 92 A5 73 C5 AF A5 74 E5 9418- 00 B1 A5 C8 AA B1 A5 86 9578- 22 20 54 4F 20 52 45 43 

92C0- BO E9 04 BO 05 A0 52 4C 9420- A5 85 A6 B1l A5 60 E6 A7 9580- 4F 56 45 52 8D 48 4F 4C 

92C8- AO 92 A5 AF E5 67 8D D3 9428- DO 02 E6 A8 A5 A7 C5 73 9588- 44 20 46 49 4C 45 20 49 

92D0- 94 A5 BO E5 68 8D D4 94 9430- A5 A8 E5 74 90 07 68 68 9590- 4E 20 55 53 45 8D 4C 49 

92D8- A5 73 8D D5 94 A5 74 8D 9438- AO 52 4C AO 92 60 84 AB 9598- 4D 49 54 45 44 20 4D 45 

92E0- D6 94 AO 00 A5 73 DO 02 9440- A5 A3 85 A7 A5 A4 85 A8 95A0- 4D 4F 52 59 2C 20 4D 41 

92E8- C6 74 C6 73 AS AF DO 02 9448- AO 00 B1 A7 45 9D DO 07 95A8- 59 20 44 45 53 54 52 4F 

92F0- C6 BO C6 AF B1l AF 91 73 9450- C8 B1 A7 45 9E FO 15 18 95B0- 59 20 50 52 4F 47 52 41 

92F8- A5 67 C5 AF A5 68 E5 BO 9458- A5 A7 69 04 85 A7 90 O2 95B8- 4D 20 20 20 20 20 43 4F 

9300- 90 E2 AS 67 69 02 85 AF 9460- E6 A8 AO O1 B1 A7 C9 FF 95C0- 4E 54 49 4E 55 45 20 28 

9308- 85 69 AS 68 69 00 85 BO 9468- DO DE FO OA C8 B1l A7 85 95C8- 59 2F 4E 29 3F 07 8D 53 

9310- 85 6A AO 01 A9 00 91 67 9470- 9D C8 B1l A7 85 9E A4 AB 95D0- 59 4E 54 41 58 8D 3E 20 

9318- 88 10 FB AO 60 20 A4 94 9478- 60 A5 69 85 À3 A5 6A 85 95D8- 36 33 39 39 39 8D 4C 49 

9320- 4C 86 92 AD D3 94 OD D4 9480- A4 A4 AB 18 B1 A3 45 9D 95E0-'4E 45 20 54 4F 4F 20 4C 

9328- 94 FO F5 38 A4 73 AS 74 9488- DO 07 C8 B1l A3 45 9E FO 95E8- 4F 4E 47 9B 49 4E 43 52 

9330- E9 01 C4 69 ES 6A BO 05 9490- 12 A5 A3 69 04 85 A3 90 95F0- 45 4D 45 4E 54 20 3D 20 

9338- AO 52 4C AO 92 A5 67 A6 9498- 02 E6 A4 AO 01 B1 A3 C9 95F8- 30 8D C9 C9 FO 07 C9 00 

9340- 68 85 Al 86 A2 AO O1 B1l 94A0- FF DO DE 60 B9 00 95 48 9600- 46 

9348- Al FO 07 AA 88 B1l Al 4C 94A8- C8 09 80 20 ED FD 68 10 

9350- 41 93 A5 Al 85 42 A5 A2 94B0- F3 60 EE BB 94 DO 03 EE 

9358- 85 43 AD D5 94 85 3E AD 94B8- BC 94 AD 8C 8A C9 3A BO 

9360- D6 94 85 3F A5 73 85 3C 94C0- 06 38 E9 30 38 E9 DO 60 

9368- A5 74 85 3D AO 00 20 2C 94C8- 00 45 53 49 46 85 AC AB Récapitulation MINI 

9370- FE AD D5 94 85 73 AD D6 94D0- BO BC C4 00 00 00 00 18 

9378- 94 85 74 38 AD D3 94 E9 94D8- A5 A3 65 Al 85 A3 A5 A4 . , _—. 

9380- 02 85 Al AD D4 94 E9 00 94E0- 65 A2 85 A4 BO 04 C9 FA ere Ki - oogel pe ci 

9388- 85 A2 18 A5 AF 65 Al 85 94E8- 90 05 AO 27 4C AO 92 A5 PRESSE péter ir 

‘9390- AF 85 69 AS BO 65 A2 85 94F0- 9D AO 02 D1 AS C8 A5 9E DÉRBES DR CES IENAREIENRS #3 
disquette Master ; se reporter 

9398- BO 85 6A A9 00 8D D3 94 94F8- F1 A5 BO B6 A5 AB 10 05 uote: 

93A0- 8D D4 94 AS 67 85 Al A5 9500- 4E 4F 20 50 52 4F 47 52 

93A8- 68 85 A2 18 AO O1 B1 Al 9508- 41 4D 20 49 4E 20 4D 45 

93B0- FO 1D AO 04 C8 B1l Al DO 9510- 4D 4F 52 59 8D 4E 4F 20 

93B8- FB C8 98 65 Al AA AO 00 9518- 4C 49 4E 45 53 20 49 4E 

93C0- 91 A1 AS A2 69 00 C8 91 9520- 20 52 41 4E 47 45 8D 49 Récapitulation 

93C8- Al 86 Al 85 A2 90 DD 4C 9528- 4E 43 52 45 4D 45 4E 54 RENUM 

93D0- 65 91 A2 00 86 A7 86 A8 9530- 20 54 4F 4F 20 4C 41 52 

93D8- AA 06 A7 26 A8 BO 31 AS 9538- 47 45 8D 44 55 50 4C 49 

93E0- A8 85 AB AS A7 OA 26 AB 9540- 43 41 54 45 20 4C 49 4E Sert à constituer le fichier 

93E8- BO 26 OA 26 AB BO 21 65 9548- 45 20 4E 55 4D 42 45 52 UTILITAIRES. Il est obtenu à 

93F0- A7 85 A7 A5 AB 65 A8 85 9550- 53 8D 4F 55 54 20 4F 46 partir du fichier RENUMBER de la 

93F8- A8 BO 15 8A 29 OF 65 A7 9558- 20 4D 45 4D 4F 52 59 8D disquette Master ; se reporter 

9400- 85 A7 A5 A8 69 00 85 A8 9560- 50 52 4F 47 52 41 4D 20 au texte. 


Ce moniteur autorise un contrôle de on des routine 
en langage machine. 


Un mode Trace et Pas à Pas très évolués et sélectifs sont complétés | Les fichiers source 
par un accès direct aux registres du 6502 (ou 65C02). sont sur la 


disquette. 


La gestion des fenêtres d'écran simplifie le mode trace. 


£ : = Disquette et 
Une routine permet la recherche de suites d'octets. q 


documentation : 


NE : : 150,00 F TTC 
Un mini-assembleur très souple fait partie de Max. franco . Bon de 


Une ligne de commande peut devenir une boucle avec l'ordre JUMP commande p 74. 
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fin de rassurer 
pleinement les lecteurs 
de Pom's redoutant 
l'abandon de la ligne 
6502, voici un programme qui va 
permettre aux possesseurs 
d'Apple (I et II+ avec carte 





Utilisation de la 


carte langage 


Hervé Roy-Contancin 


langage, //e et //c) d'utiliser cette 
carte en DOS 3.3 sous Applesoft. 
Les 16 Ko de la carte langage, 
normalement inaccessibles en 
Applesoft, peuvent enfin être 
utilisés pour y stocker une ou 
plusieurs tables alphanumériques. 


NOP1 = INT (4096/LONGENR) 
NOP2 = 2 * NOPI - 1 

NOP3 = NOP1 + NOP2 

NOP4 = NOPI + NOP3 


Organigramme 
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Il est important de noter que 
toutes les chaînes de caractères 
doivent avoir la même longueur, 
cette longueur étant fixée au 
départ (voir ci-dessous). 


Pratiquement.… 


+ En premier lieu, il faut charger 
le programme par : 
BLOAD LANG1.0BJ0,A$9400 


+ puis placer une HIMEM: 
37888 afin de ne pas écraser le 
programme LANGI1.OBJO par 
les variables du programme 
Applesoft. 

+ il faut ensuite définir une 
variable E$ en l'initialisant à la 
longueur des chaînes de la table. 
Si la longueur est 8, faire par 
exemple E$ = "BONJOUR!". 
Cette variable E$ est indispen- 
sable ; elle doit être la première 
variable rencontrée dans le 
programme Applesoft ; enfin, on 
ne doit jamais l'écourter mais il 
est possible de rajouter des blancs 
pour conserver la même 
longueur : E$="HELLO ‘!. 


+ On peut écrire ou lire une 
chaîne sur la carte langage en 
faisant : 

CALL37888,LNG,FONC,IH,IB 


où LNG est la longueur des 
chaînes (c'est-à-dire la longueur 
initiale de E$), FONC vaut 1 en 
lecture, 2 en écriture, IH est 
l'indice haut et IB l'indice bas du 
numéro de la chaîne (c'est-à-dire 
son numéro est IH * 256 + IB). 
Ce numéro doit être compris entre 
1 et 4 * (4096 / LNG) car la carte 
langage peut stocker 4 fois 4 Ko 
et 4Ko = 4096 octets. 

L'indice IH peut aussi être 
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considéré comme un numéro de 
table dans une gestion de 1 à 4 
tables de 256 chaînes. 

Par exemple, la lecture de la 
39ème chaîne donne, si la 
longueur est 32 : 


+ 37888,32,1,0,39 : PRINT 
Ë 


Ceci est équivalent à PRINT 
E$(39) pour un tableau de 
chaines en Applesoft. 

Comme le montre le programme 
EXEMPLE-LANGI, il est 
possible d'abréger l'écriture de la 
syntaxe si certains paramètres 
restent inchangés, mais il faut 
alors changer l'adresse du CALL. 
CALL37888,LNG,FONC,IH,IB 
(est obligatoire pour le premier 
appel) 
CALL37894,FONC,IH,IB 

(pour les autres appels) 

CALL 37900,IH,IB 

(si FONC ne change pas) 


CALL 37906,1B 


Programme EXEMPLE-LANG1 


10 REM EXEMPLE 


20 REM LLELLLLELLLLLLLLLLELLLLLLLLELLLLLLLLLE. EEE] 


(si IH ne change pas) 


CALL 37912 

(si rien a changé) 

Des contrôles sont effectués et les 
messages d'erreur sont les 
suivants : 


+ si FONC <> 1 et FONC <> 2: 
cela correspond à un 
ILLEGAL QUANTITY 
ERROR 

*_silH * 256 + IB > INT (4096 
/ LNOG) * 4 on obtient un OUT 
OF MEMORY ERROR 

* si c'est une erreur sur E$ : 
STRING TOO LONG ERROR 
(en fait c'est l'inverse, mais le 
message STRING TOO 
SHORT n'existe pas !). 


Techniquement.… 


L'adresse de début choisie 
($9400, soit 37888 en décimal) 
peut être modifiée, à condition de 
modifier les quelques JSR du 
programme. Il faut bien faire 


235 E$ = BL$ 


attention car 3 octets sont 
réservés, à la fin de 
LANGI.OBJO, pour y stocker 
des variables, afin de ne pas 
encombrer la page zéro. Le 
programme gère la mémoire en 4 
blocs de 4 Ko, les chaînes y sont 
enregistrées bout à bout. 


Après la saisie des paramètres par 
la routine GETBYTC, le 
programme calcule le nombre 
d'enregistrements par blocs, soit 
4096/LNG et on déduit le dernier 
numéro de chaque bloc (NOP1, 
NOP2, NOP3 et NOP4). Il 
calcule ensuite ADR, adresse 
concernée sur la carte langage, en 
fonction du bloc auquel appartient 
l'enregistrement demandé ($D000 
- $DFFF/BANKI1 pour le 
BLOCI, $D000 - S$DFFF/ 
BANK? pour le BLOC4, $E000 
- $EFFF pour le BLOC?2 et 
$F000 -$FFFF pour le BLOC3). 
Enfin, BUFFER est l'adresse de 
la variable Ef. 


A noter que la fonction lecture 


220 E$ = BL$: CALL (37888 + 12),0,39: PRINT E$ 
230 REM ET POUR FINIR 


240 CALL (37888 + 18),39: PRINT E$ 


250 END 


30 REM* PROGRAMME DE DEMONSTRATION 


40 REM* UTILISATION DE LANG1.0BJO 


50 REM * H.ROY-CONTANCIN 


Programme LANG1 


60 REM COPLLELELLELELELLLLLLELELELELELELLLLELL ELLE!) 


70 HIMEM: 37888: REM INDISPENSABLE 


75 E$ ="JE SUIS LE NUMERO 39 HA HA HA HA":D$ = 


. CHRS (4) 0000: 
76 REM E$ DOIT ETRE LA PREMIERE VARIABLE DU 0000: 
PGM 0000: 
80 PRINT D$"BLOAD LANG1.0BJ0,A$9400" Set). 
90 BL$=" ". REM 3 D. 
BLANCS : 
100 LNG = 32:ECR = 2:LEC = 1 009% 
110 CALL 37888,LNG,ECR,0,39: REM ECRITURE DU 39 0008: 
120 E$ = BL$: REM ON EFFACE 0018: 
130 CALL 37888,LNG,LEC, 0,39: PRINT E$: REM 001A: 
RELECTURE 00FS% 

140 REM ET MAINTENANT 259 > 255 001C: 
150 1= 259:E$ = "ET MOI ET MOI LE 259 ME VOICI OK" 001E: 
155 CALL 37888,LNG,ECR, INT (1/256),1- INT (1/256) * CO82: 
256 > 

160 E$ = BLS vas 
170 CALL 37888,LNG,LEC, INT (1/256),1- INT (1/256) * è 
256: PRINT E$ 5752: 

180 E$ = BL$ E6F5: 
190 REM POUR LES PARESSEUX E982: 
200 CALL (37888 + 6),LEC, INT (1/256),1- INT (1/256) * E2F2: 
256: PRINT E$ EB63: 

210 REM ENCORE PLUS COURT EB53: 


(Assembleur Toolkit) 


SOURCE FILE: LANG1 


RAKRKKRRÉRRRRÉARERARRREAKREEX 


* LANGI * 
* CARTE LANGAGE BASIC * 
* 03/02/85 x 
* H.ROY-CONTANCIN * 


KKKKRRRRRRARARAKRRÉRÉRKHEREXXE 


NOP1 EQU $0B 
NOP2 EQU $18 
NOP3 EQU $1lA 
NOP4 EQU $F9 
BUFFER EQU $1C 
ADR EQU $1lE 
ROM EQU $co082 
RAM EQU $C083 
LINUM EQU $50 
GETADR EQU $E752 
GETBYTC EQU $E6FS5 
FMULTT EQU $E982 
GIVAYF EQU $E2F2 
MOVEAF EQU $EB63 
MOVEFA EQU $EB53 


BH RM 
ao UB U N° MH © WW © — où U & & NN H 


H 
— 


ND NH H 
= © ©  @ 
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effectue le filtrage des caractères 
de code ASCII non compris entre 
$20 et $60 pour éviter tout 
problème en cas de lecture d'une 
zone de la mémoire non 
initialisée. 

Si E$ est initialisée par E$ = 
"AA (32-.A).:Dmus si BS = 
"<50 blancs>", le fait d'écrire E$ 
= B$ attribue à E$ l'adresse de la 
chaîne B$ : ainsi, le résultat de la 
recherche se trouve alors dans B$ 
et E$ a une longueur 50 
(E$="A..A ", 32 A et 18 
blancs). Pour éviter cela, il suffit 
de remplacer E$ = B$ par E$ = 
B$ + ve 


Remarquons, pour conclure, que 
ce programme permet non 
seulement de gagner de la place 
mémoire, mais également de 
transmettre des tables entre 
plusieurs programmes puisque la 
carte langage n'est pas touchée 
par RUN ou LOAD. Cette seule 
raison peut justifier son emploi en 
zone de sauvegarde de tables. 





NB : J'ai dû utiliser la routine 
ABS après les routines FDIVT 
($EA69) et FMULTT ($E982) 
car dans certains cas 4096 / 32 = 
-128! 





N.D.L.R. 

* Nous avons fait des essais de 
vitesse pour la lecture et l'écriture 
de 450 chaînes de caractères : 


- Avec le programme LANG1, il 
faut 42 secondes; 


- Avec le Disque virtuel 16K 
RWLC (Pom's 12) et un 
fichier à accès direct, 111 


secondes sont nécessaires ; 

- Et enfin, pour Tableau de 
chaînes Applesoft : il est 
préférable d'utiliser FRE(64) 
après le test (Pom's 2) : cela 
prend 39 secondes. 


+ C'est une méthode originale 
pour utiliser la carte langage en 
Applesoft pour y stocker des 
chaînes de longueur fixe. A titre 
de comparaison, on connaissait 
déjà : 


- le DOS sur la carte langage, ce 
qui remonte la HIMEM et 
laisse plus de place pour les 
programmes. 

- le Disque virtuel 16 Ko (en 
fait, il n'y a que 15K 1/4 pour 
les données, car il faut aussi 
stocker le catalogue. 

- Haïfa 64K : on double les 
instructions de l'Applesoft. 


G 





EA69: 22 FDIVT EQU $EA69 9437:18 52 CNOP3 CLC 

EBAF: 23 ABS EQU $EBAF 9438:A5 0B 53 LDA NOP1 
EC23: 24 INT EQU $EC23 943A:65 18 54 ADC NOP2 
D419: 25 ERROR EQU $D419 943C:85 1A 55 STA NOP3 
0069: 26 LOMEM EQU $69 943E:A5 0C 56 LDA NOP1+1 
0000: 27 FRKRERAREERERRRAREX 9440:65 19 57 ADC NOP2+1 
re NEXT OBJECT FILE NAME IS LANG1.0OBJO 9442:85 1B 58 STA NOP3+1 
9400: 28 ORG $9400 9444:A5 0B 59 CNOP4 LDA NOP1I 
9400:20 F5 E6 29 DEB JSR GETBYTC 9446:18 60 CLC 

9403:8E D4 95 30 STX  LONGENR 9447:65 1A 61 ADC NOP3 
9406:20 F5 E6 31 ENTREE JSR GETBYTC 9449:85 F9 62 STA NOP4 
9409:8E D3 95 32 STX FONC 944B:AS5 OC 63 LDA NOPI1+1 
940C:20 F5 E6 33 JSR GETBYTC 944D:65 1B 64 ADC NOP3+1 
940F:8E D5 95 34 STX NOENR 944F:85 FA 65 STA NOP4+1 
9412:20 F5 E6 35 JSR GETBYTC 9451:A9 DO 66 LDA #$D0 
9415:8E D6 95 36 STX NOENR+1 9453:85 1F 67 STA ADR+1 
9418:38 37 SEC 9455:A9 00 68 LDA . #$00 
9419:AD D6 95 38 LDA NOENR+1 9457:85 1E 69 STA ADR 
941C:E9 01 39 SBC #$01 9459:A5 FA 70 TESTO LDA NOP4+1 
941E:8D D6 95 40 STA NOENR+1 945B:CD D5 95 71 CMP  NOENR 
9421:AD D5 95 41 LDA NOENR 945E:90 43 72 BCC ERREUR 
9424:E9 00 42 SBC +#$00 9460:D0 09 73 BNE TESTI 
9426:8D D5 95 43 STA NOENR 9462:A5 F9 74 LDA NOP4 
9429:20 9D 95 44 JSR CALCNOP1 9464:CD D6 95 75 CMP NOENR+1 
942C:18 45 CNOP2 CLC 9467:90 3A 76 BCC ERREUR 
942D:A5 0B 46 LDA NOP1 9469:F0 38 TS BEQ ERREUR 
942F:2A 47 ROL AÀ 946B:AS5 1B 78 TESTI LDA NOP3+1 
9430:85 18 48 STA NOP2 946D:CD D5 95 79 CMP  NOENR 
9432:A5 OC 49 LDA NOP1+1 9470:90 74 80 BCC BLOC4 
9434:2A 50 ROL AÀ 9472:D0 09 81 BNE TEST2 
9435:85 19 51 STA 9474:A5 1A 82 LDA NOP3 


NOP2+1 
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9476:CD 
9479:90 
947B:FO0 
947D:A5 
947F:CD 
9482:90 
9484 :D0 
9486:A5 
9488:CD 
948B:90 
948D:F0 
948F:A5 
9491:CD 
9494 : 90 
9496:D0 
9498:A5 
949A:CD 
949D:90 
949F:F0 
94A1 : BO 
94A3:A2 
94A5:4C 
94A8 : AD 
94AB:AC 
94AE:20 
94B1:A2 
94B3: 

94B3:18 
94B4 : 90 
94B6:A9 
94B8:85 
94BA:AD 
94BD:38 
94BE:E5 
94C0:A8 
94C1:AD 
94C4:E5 
94C6:20 
94C9:A2 
94CB: 

94CB:18 
94CC: 90 
94CE:A9 
94D0:85 
94D2:AD 
94D5:38 
94D6:E5 
94D8:A8 
94D9:AD 
94DC:E5 
94DE: 20 
94E1:A2 
94E3: 

94E3:18 
94E4 : 90 
94E6:AD 
94E9:38 
94EA:E5 
94EC:A8 


18 


D5 
19 
66 
00 


14 
D6 


1A 


95 


95 


95 


95 


95 


D4 


95 


95 


95 


95 


95 


95 


95 


95 


95 


95 


100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
TTL 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 


TEST2 


TEST3 


ERREUR 


BLOC1 


* BANK1 


BLOC2 


* BANK1 


BLOC3 


LDX 


NOENR+1 
BLOC4 
BLOC4 
NOP2+1 
NOENR 
BLOC3 
TEST3 
NOP2 
NOENR+1 
BLOC3 
BLOC3 
NOP1+1 
NOENR 
BLOC2 
BLOC1 
NOP1 
NOENR+1 
BLOC2 
BLOC2 
BLOC1 
#$4D 
ERROR 
NOENR 
NOENR+1 
CALCADR 
#$00 


(c083+0) 


CLC 


TESTFON 
#$EO 
ADR+1 
NOENR+1 


NOP1 


NOENR 
NOP1+1 
CALCADR 
#$00 


(c083+0) 


CLC 


TESTFON 
#$FO 
ADR+1 
NOENR+1 


NOP2 


NOENR 
NOP2+1 
CALCADR 
#$00 


* ENCORE BANK1 


BLOC4 


CLC 


TESTFON 
NOENR+1 


NOP3 


94ED : AD 
94FO0:E5 
94F2:20 
94F5:A2 
94F7: 

94F7 : AD 
94FA:C9 
94FC:F0 
94FE:C9 
9500:D0 
9502:20 
9505:BD 
9508:BD 
950B:AC 
950E:88 
950F:B1 
J5EL: 

9511:C9 
9513:90 
9515:Cc9 
9517:B0 
9519:91 
951B:98 
951C:D0 
951E:AD 
9521:60 
9522:A9 
9524:18 
9525: 90 
9527:20 
952A:BD 
952D:BD 
9530:AC 
9533:88 
9534:B1 
9536:91 
9538:98 
9539:D0 
953B:AD 
953E: 60 
953F:A2 
9541:20 
9544: 

9544:A0 
9546:B1 
9548:c9 
954A:D0 
954C:C8 
954D:B1 
954F:C9 
9551:D0 
9553:C8 
9554:B1 
9556:CD 
9559:90 
955B:C8 
955C:B1 
955E:85 
9560:C8 


95 


95 


95 


95 


co 


co 
95 


co 


95 
co 
co 
95 


co 


D4 


95 


LDX 


NOENR 
NOP3+1 
CALCADR 
#$08 


* BANK2 (C083+08=C08B) 


TESTFON LDA 
CMP 
BEQ 
CMP 
BNE 
LEC JSR 
LDA 
LDA 
LDY 
L1 DEY 
LDA 


FONC 
#502 
ECRIT 
#$01 
ERREUR2 
CALCBUF 
RAM, X 
RAM, X 
LONGENR 


(ADR) ,Y 


* CARACT INDESIRABLES? 


CMP 


El1 STA 


FIN RTS 


BIDON LDA 


ECRIT JSR 


E1 DEY 


ERREUR2 LDX 
JSR 


#$20 

BIDON 

#$60 

BIDON 
(BUFFER) ,Y 


L1 
ROM 


#$20 


E11 
CALCBUF 
RAM, X 
RAM, X 
LONGENR 


(BUFFER) , Y 
(ADR) ,Y 


El 
ROM 


#$35 
ERROR 


ELLE LLLELEESLSESESES) 


CALCBUF LDY 
LDA 
CMP 
BNE 
INY 
LDA 
CMP 


#$00 
(LOMEM) ,Y 
#$45 
ERREUR 


(LOMEM) ,Y 
#580 
ERREURI1 


(LOMEM) , Y 
LONGENR 
ERREURI 


(LOMEM) ,Y 
BUFFER 
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Vos textes en direct de voire ordinateur 
a nos photocomposeuses 


Gain de temps et économie Las des de vos afléies, Cas DES 


annuaires ou brochures saisis sur 
Ts votre micro-ordinateur sont envoyés 
directement sur notre 
xt photocomposeuse 


7e vos 
Nous vous évitons ainsi, 
le coût et le temps de la saisie 
supplémentaire que 
nécessite le traitement 
traditionnel de la photocomposition 
avant l'impression des documents. 


Si vous le désirez nous pouvons 
également nous charger 
de l'impression et du brochage. 








9561:B1 69 201 LDA (LOMEM) ,Y 959D:A9 10 231 CALCNOP1 LDA #$10 
9563:85 1D 202 STA BUFFER+1 959F:A0 00 232 LDY  #$00 
9565:60 203 RTS 95A1:20 F2 E2 233 JSR GIVAYF 
9566:20 F2 E2 204 CALCADR JSR GIVAYF 95A4:20 63 EB 234 JSR MOVEAF 
9569:20 63 EB 205 JSR MOVEAF 95A7:A9 00 235 LDA #$00 
956C:A9 00 206 LDA #$00 95A9:AC D4 95 236 LDY  LONGENR | 
956E:AC D4 95 207 LDY  LONGENR 95AC:20 F2 E2 237 JSR GIVAYF | 
9571:20 F2 E2 208 JSR GIVAYF 95AF:20 69 EA 238 JSR FDIVT 
9574:20 82 E9 209 JSR FMULTT 95B2:20 23 EC 239 JSR INT 
9577:20 23 EC 210 JSR INT 95B5:20 AF EB 240 JSR ABS 
957A:20 AF EB 211 JSR ABS 95B8:A5 50 241 LDA LINUM 
957D:A5 50 212 LDA LINUM 95BA:48 242 PHA 
957F:48 213 PHA 95BB:A5 51 243 LDA LINUM+1 
9580:A5 51 214 LDA LINUM+1 95BD:48 244 PHA 
‘ 9582:48 215 PHA 95BE:20 52 E7 245 JSR GETADR 
9583:20 52 E7 216 JSR GETADR 95C1:A5 50 246 LDA LINUM 
9586:A5 50 217 LDA LINUM 95C3:85 O0B 247 STA NOP1 
9588:85 1E 218 STA ADR 95C5:A5 51 248 LDA LINUM+1 
958A:A5 51 219 LDA  LINUM+1 95C7:85 0C 249 STA NOP1+1 
958C:18 220 CIC s5cS:68 250 PLA j | 
958D:65 1F 221 ADC ADR+1 95CA:85 51 251 STA LINUM+1 
958F:85 1F 222 STA ADR+1 25CC:68 252 PLA 
9591:68 223 PLA 95CD:85 50 253 STA LINUM 
9592:85 51 224 STA LINUM+1 9SCF : 60 254 RTS 
9594:68 225 PLA 95D0:4C 19 D4 255 JMP  ERROR 
9595:85 50 226 STA LINUM 95D3: 256 *x*xx ZONES A RESERVER 
9597:60 227 RTS 95D3: 257 FONC EQU * 
9598:A2 BO 228 ERREUR1 LDX #$B0 95D4: 258 LONGENR EQU *+1 
959A:4C 19 D4 229 JMP  ERROR 95D5: 259 NOENR EQU *+2 
959D: 230 *kxxkkxxX *x%x SUCCESSFUL ASSEMBLY: NO ERRORS 
Pom's n° 20 15 
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DOS 3.3 ou ProDOS 


à la carte 


ous avons déjà vu 

comment faire coexister 

sur une même disquette 

des fichiers DOS 3.3 et 
des fichiers ProDOS. Ceci n'était 
utile que pour la circulation 
simultanée des deux types de 
fichiers, sans que l'on puisse 
faire d'échanges entre les deux 
systèmes. Aujourd'hui, nous 
rendons cela possible mais à une 
condition : posséder une carte 80 
colonnes étendue. (En fait, il est 
possible de se débrouiller avec 
ses seuls 64Ko, mais au prix 
d'une multiplication des accès 
disques et de la neutralisation 
d'une bonne partie de mémoire : 
21Ko pour les deux DOS). 


Utilitaires DOS... 
Sous ProDOS 


Vous pourrez alors passer quasi 
instantanément d'un DOS à 
l'autre tout en gardant en 
mémoire le programme Basic. 
Vous pourrez également le faire 
en cours d'exécution d'un 
programme (si, si !) et, enfin, 
vous garderez le bénéfice des 
éventuels utilitaires que le DOS 
3.3 avait mis au chaud sous ses 
buffers. 


Exemple d'utilisation : vous 
pourrez dorénavant convertir de 
manière non aveugle. Vous 
chargez un programme DOS, 
vous le listez, vous faites les 
éventuelles modifications 
nécessitées par l'adaptation à 
ProDOS et vous le sauvegardez 
sous ProDOS. Ou encore, vous 
chargez un programme ProDOS, 
vous passez sous DOS pour 
bénéficier des services de 
RENUMBER, HOLD et MERGE 
de l'Applesoft Toolkit et vous 
revenez sauvegarder le résultat 
sous ProDOS. 


L'art et la manière 


Il s'agit d'utiliser la mémoire 
auxiliaire 64 Ko pour stocker les 
images des deux systèmes 
d'exploitation. Pour réaliser la 
permutation, on commencera par 
sauvegarder l'état de l'OS en 
fonction, et on appellera son 
collègue. Le tout à l'aide de la 
routine AUXMOVE ($C311). 

Quelques petites précautions : 

+ brancher et débrancher les 
vecteurs d'interception des 
entrées sorties, I/O Hooks, des 
OS (CSSWON et CSSWOFF 
de DOS 3.3) ; 


* rétablir le mode TRACE 
correct ProDOS laisse 
toujours Applesoft en mode 
TRACE et recopie en page 
globale BI ($BE41) la vraie 
valeur du flag TRACE ; 


+ de la même manière, établir le 
lien entre HIMEM DOS 3.3 et 
HIMEM ProDOS : si pour 
DOS, la région située 
au-dessus de HIMEM est bien 
définitivement protégée (à 
moins de modifier 
MAXFILES, ce qui n'est pas 
souhaitable), il n'en est pas de 
même pour ProDOS qui 
maintient un tampon de 1 Ko 
au dessus de HIMEM à des 
fins de ramasse-miettes, et 
surtout qui descend tout ce 
monde de 1 Ko chaque fois 
qu'il ouvre un fichier. 


Pour résoudre ce dernier 
problème, il faut recourir à 
l'allocation de buffer autorisée 
par ProDOS. La routine 
correspondante prend en entrée le 
nombre de pages à allouer et 
retourne l'adresse de la première 
page attribuée au tampon. Ce 
nombre est en fait la valeur du 
pointeur sur le sommet des 
tampons de fichiers (TOPBUFF). 


ou comment conserver 


Seul l'espace situé au dessus de 
ce sommet est effectivement 
protégé de modifications 
intempestives (voir figure). 

Enfin, dernier problème, on a 
essayé d'utiliser au maximum les 
adresses situées dans les "pages 
globales" ($BE et $BF), seules 
celles-ci sont assurées d'une forte 
stabilité entre les différentes 
versions ProDOS, mais il a fallu 
recourir à 3 adresses extérieures. 
Pour l'accrochage ($9A8D pour 
les seuls 1/0 Hooks ou $9A7E 
pour y ajouter la restauration du 
flag TRACE) et pour le 
décrochage de ProDOS, les 
adresses ne changent pas dans les 
versions 1.0, 1.0.1 et 1.0.2. Par 
contre, la routine fermant tous les 
fichiers s'est légèrement déplacée 
de $B548 (1.0) à $B54C (1.0.1 
et 1.0.2). On sera donc prudent 
pour l'utilisation du programme 
proposé avec d'autres versions 
futures de ProDOS. 


La théorie : 
DOUBLEDOS 


Il se compose d'une partie 
d'initialisation réalisant tous les 
transferts nécessaires en mémoire 
auxiliaire, ainsi que la mise hors 
service du pseudo-disque /RAM 
et d'une partie "“résidente" 
permettant de commuter le 
système d'exploitation par un 
seul et même CALL 768. 
Remarque : si l'on est perdu (3.3 
ou Pro ?), un moyen extrême- 
ment simple : faites RETURN en 
début de ligne ; ProDOS passe 
simplement à la ligne suivante, 
tandis que DOS 3.3 ajoute un 
retour chariot faisant ainsi sauter 
une ligne. Simple, mais efficace. 


Le programme démarre en 
supposant que le DOS 3.3 a été 
chargé en mémoire ; le corps de 
3.3 de $4600 à $6FFF et une 
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l'acquis 3.3 sous Pro... 


image de sa page 3 juste devant, 
de $45D0 à $45FF. 


* $2B1-$2EE : c'est la routine 
(empruntée à Beneath Apple 
ProDOS) mettant hors service le 
volume /RAM, situé convention- 
nellement en slot 3, drive 2. On 
pourrait envisager de simplement 
protéger les zones concernées 
dans le VBM de /RAM à l'aide 
d'un appel à MLI, mais la 
correspondance numéro de bloc, 
page mémoire auxiliaire est loin 
d'être évidente : pour les blocs de 
$D à $5C, il faut retirer 8 au 
numéro de bloc, diviser le résultat 
par 17 et mettre les blocs dans la 
mémoire à partir de $2000 vers 


A l'initialisation 
$C000 
ProDOS 
Top of Buffers (1) 
(SBC8S) (B.L.) 


$9A00 
Espace 
ramasse-miettes 
59600 


Top of Buffe: 


M 


(1) : Top of Buffers n'est mis 
à jour que lors d'une allocation 
de Buffer. A l'initialisation, 
celte variable n'est pas définie 
($BC88 = 0) 


$BFFF à l'exception de ceux 
dont le reste de la division par 17 
vaut 1 qui vont successivement 
de $12 à $18. Et le reste à 
l'avenant : les blocs $5D-$5F 
vont en $1A-$1F, /RAM utilise 
les deux bancs $D0-$DF.. 


+ $2EF-$2FF: transfert de 
ProDOS à la même adresse en 
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XX pages 


C] 





mémoire auxiliaire, de sa page 3 
immédiatement en dessous et du 
bloc DOS et sa page 3 encore en 
dessous. 

+ _$300-$304 : aiguillage du com- 
mutateur. On teste simplement le 
MSB du vecteur d'interruption 
masquable IRQ en $3FE-$3FF. 
Celui-ci vaut $FF6S (entrée dans 
le moniteur) pour DOS 3.3 et 
$BFEB adresse du Handler 
d'interruption ProDOS, qu'il est 
déconseillé de modifier. 


+ les deux morceaux (Pro -> 3.3 
et réciproquement) utilisent tous 
les deux les mêmes sous- 
programmes DOMOVES et 


Après allocation 
d'un buffer 
utilisateur 


ProDOS 


"Espace 
utilisateur" 


Espace 
ramasse-miettes 





Les (n+1) Ko situés entre 
HIMEM et Top of Buffers ne 
sont pas protégés bien que 
situés au-dessus de HIMEM. 


Allocation de la mémoire vive 


DOMOVE pour réaliser les 
transferts. Comme sa consœur 
MOVE du moniteur, AUXMOVE 
déplace une zone mémoire de 
(A1)-(A2) vers la zone débutant 
en (A4), le sens du mouvement 
est donné par le bit de retenue : 
s'il est mis à 1, le transfert 
s'effectue vers la mémoire 


n buffers 
fichiers 








François Sermier 


auxiliaire. On utilise une table des 
mouvements à effectuer en 
$374-$39E ; les 6 octets suivants 
$39E ne sont utilisés qu'une fois 
lors de l'initialisation et 
deviennent donc disponibles 
immédiatement. 

+ $30E-$31F : avant d'appeler 
DOS, on ferme tous les fichiers 
pendants (à l'exception d'un 
éventuel fichier EXEC, il faut 
donc éviter de commuter dans un 
EXEC si l'on tient à ce qui se 
trouve après HIMEM) (voir 
remarque ci-dessus pour 
l'adresse de la routine 
CLOSEALL). Puis on s'enquiert 
de TOPBUFF en demandant 


Lors de l'utilisation 
de n fichiers 


ProDOS 
“Espace 
utilisateur“ 


Sous DOS 


“fichiers 





Espace 
—| ramasse-miettes 


Le nombre n de fichiers 
ouverts peut varier de 0 à 8 
à tout instant entraînant 
le déplacement de tout ce 
qui est en-dessous, 





l'allocation de 0 page. En effet, 
la valeur de TOPBUFEF est 
stockée en $BC88 (donc hors 
pages globales alors que 
GETBUFR y est) mais il n'est 
mis à jour que lors d'allocation de 
buffers (fichiers ou utilisateurs) et 
pas lors de la libération. La 
routine GETBUFR retourne la 
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valeur correcte. Si TOPBUFF 
vaut $9A, c'est que l'on a rien 
modifié, on ne touche donc à 
rien ; s'il est différent, c'est qu'il 
est inférieur ou égal à $96, il faut 
donc remonter HIMEM DOS de 
1K (4 pages) pour tenir compte 
du tampon ramasse miettes. 

+ $332-$344 : avant d'entrer 
dans ProDOS, on vérifie si le 
haut de la mémoire n'a pas été 
abaissé, dans ce cas, on alloue un 
buffer de taille suffisante pour 
faire descendre TOPBUPFF à la 
hauteur du HIMEM DOS. Du 
coup HIMEM ProDOS est 
automatiquement plus petit de 
1Ko que pour DOS. Remarquez 
que dès que l'on alloue quelque 
chose, on avale automatiquement 
les pages $96 à $9A, qui ne 
contiendront rien. C'est-à-dire, la 
première fois que l'on descend le 
haut de la mémoire, on le descend 
d'un minimum de 5 pages, y 
compris pour protéger un 
programme d'une vingtaine 
d'octets. Les autres fois on ne 
descend que du nécessaire. 


La pratique 

La suite des opérations est la 

suivante : 

+ Booter une disquette DOS : 

+ Faire: 
JCALL-1 91 passe en moniteur 
*45D0<3D0.3FFM copie page 3 
*4600<9600.BFFFMcopie Dos 
*3D0G retour au Basic 

. JBSAVE DOS, A$45D0, L$ 
2A30 sur une disquette 3.3 

+ CONVERTIir DOS sur une 
disquette ProDOS 

*. Assembler DOUBLEDOS (si 
l'on n'a qu'un assembleur 
DOS, on peut l'utiliser mais il 
faut évidemment de nouveau 
CONVERTir) 

+ Il ne reste plus qu'à enchaîner 
(éventuellement dans un 


Programme LOADAPA 


100 CALL 768: REM ----- Je passe en 3.3 
105 REM 
110 PRINT CHRS (4) ; "BLOAD RBOOT" 

120 CALL 520 :AD = USR (0), "APA" : CALL AD 


STARTUP) en faisant BLOAD 
DOS puis -DOUBLEDOS.O0 
pour se trouver en situation de 
commuter à tout moment par 
un simple : CALL 768. 


11 peut être utile de commencer à 
utiliser cette commutation sur une 
disquette mixte ProDOS/DOS 3.3 
et de sauvegarder la partie 
résidente du commutateur sur la 
partie DOS 3.3 de la disquette. 
En effet, la page 3 est quelque 
peu utilisée (euphémisme...) et 
vous risquez de la perdre et donc 
de ne plus pouvoir revenir sous 
ProDOS qu'en rebootant ou en 
réintroduisant le code machine à 
la main. Donc, dès le premier 
CALL768, faire : 


SAVE DOUBLEDOS.OBJ,AS$ 
300,L$9E par exemple (on 
laissera tomber les tronçons 
d'initialisation). 


On se convaincra de l'efficacité 
du système en expérimentant en 
mode direct et en entrant des 
programmes du genre : 


10 PRINT CHR$(4) ; "CATA 
LOG" 

20 CALL768 

30 PRINT CHR$(4) ; "CATA 
LOG" 

40 CALL768 


ou encore pour utiliser APA, voir 
le programme LOADAPA. 
Apparemment, les diverses 
commandes APA, fonctionnent 
aussi sous ProDOS sauf AUTO 
(grande perte. et peut-être 
MERGE). Quelques remarques 
enfin, sur LOADAPA. 


1.130 est indispensable car 
RBOOT vient en pages 2 et 3. 

1.140 on se saisit du vecteur de 
l'Ampersand dans la page 3 
DOS, et l'on POKE dans la page 
3 ProDOS. (Il est d'ailleurs 
préférable de les POKEr dans 


XTRNADDR ($BES50-51), 
Handler de commandes externes 
de ProDOS. Ceci lui permettrait 
ainsi de reconnaitre également ces 
commandes. Evidemment, ici, ce 
n'est guère utile. Enfin, on notera 
qu'au premier passage de DOS 
vers ProDOS, après avoir chargé 
APA, vous pouvez perdre les 
valeurs de quelques variables 
alphanumériques, car HIMEM est 
arrondi à la page inférieure pour 
les besoins de ProDOS. Mais une 
fois cet ajustement effectué, vous 
pouvez passer sans problème 
d'un système à l'autre en 
conservant toutes vos variables, y 
compris en cours d'exécution. 


Jonglez bien, et si vous êtes 
perdus, n'oubliez pas : un simple 
RETURN suffit. 


NDLR : APA, logiciel commer- 
cial ne figure pas sur la disquette 


d'accompagnement. G 


Récapitulation 
DOUBLEDOS.OBJ 


0300- AE FF 03 E8 FO 24 20 00 
0308- 9A AD 41 BE 85 F2 20 4C 
0310- B5 A9 00 20 F5 BE C9 9A 
0318- FO 07 18 A5 74 69 04 85 
0320- 74 A2 17 20 49 03 20 51 
0328- A8 60 20 EO 9E A2 29 20 
0330- 49 03 A5 74 C9 96 FO OD 
0338- A9 00 85 73 20 F5 BE 38 
0340- E5 74 20 F5 BE 20 7E 9A 
0348- 60 38 20 SA 03 38 20 SA 
0350- 03 18 20 5A 03 18 20 SA 
0358- 03 60 08 AO 07 BD 74 03 
0360- 99 3C 00 CA CO 06 DO 02 
0368- 88 88 88 10 FO 28 8A 20 
0370— 11 C3 AA 60 DO 6A FF 6A 
0378- DO 03 00 6B FF 94 00 96 
0380- DO 03 FF 03 DO 95 00 96 
0388- FF BF 00 96 DO 95 FF 95 
0390- DO 03 DO 03 FF 03 DO 6A 
0398- 00 96 FF BF 00 6B DO 


sur disquette DOS 3.3 


130 PRINT CHRS (4) ; "BLOAD DOUBLEDOS;OBJ" 
140 LAMPV = PEEK (1014) :HAMPV = PEEK (1015) 


150 CALL 768: REM ----- Je reviens en ProDOS 


155 REM 


160 POKE 1014,LAMPV: POKE 1015,HAMPV 


180 NEW 


170 PRINT : PRINT "Me revoilà en ProDOS" 
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Programme DOUBLEDOS 


(Assembleur Procode) 
SOURCE FILE #01 =>/POMS/DOUBLEDOS 
0000: 1 LST NOA 
0000: bé ÉRRRRRRRRRRRRRRRRRRRRRRRRRRRRÉ 
0000: 3 ; {change ProDOS <--> DOS 
0000: 4 RRRRRRRRRRRRRRRRÉRRRRÉRRÉRÉRÉRÉRRR RÉ 
T=n—— NEXT OBJECT FILE NAME IS /POMS/DOUBLEDOS.0 
02B1: 02B1 Li ORG $2B1 
02B1: 0073 6 HIMEM EQU $73 
02B1: 003€ 7 Al EQU $3c 
02B1: 003E 8 A2 EQU $3E 
02B1: 0042 9 A4 EQU $42 
02B1: 00F2 10 TRACE EQU $F2 
02B1: A851 11 HOOKDOS EQU $A851 
02B1: 9EEO 12 UNHOOKDOS EQU $9EEO 
02B1: 9A7E 13 HKPROTRCE EQU $9A7E 
02B1: 9A8D 14 HOOKPRO EQU $9A8D 
02B1: 9A00 15 UNHOOKPRO EQU $9A00 
02B1: B54C 16 CLOSEALL EQU $B54C 
(V.1.0:$B548) 

02B1: BEOC 17 PRINTERR EQU $BEOC 
02B1: BE41 18 DTRACE EQU $SBE41 
02B1: BEFS 19 GETBUFR EQU SBEFS 
02B1: BF16 20 DEVADR31 EQU $BF16 
02B1: BF26 21 DEVADR32 EQU SBF26 
02B1: BF31 22 DEVCNT EQU SBF31 
02B1: BF32 23 DEVLST EQU SBF32 
02B1: BF98 24 MACHID EQU $Br98 
02B1: C311 25 AUXMOVE EQU $c311 
02B1: 26; 
02B1:AD 98 BF 27 LDA  MACHID 
02B4:29 30 28 AND #530 
02B6:C9 30 29 CMP +530 
02B8:F0 05 02BF 30 BEQ OK128 
02BA:A9 03 31 NORAM LDA #3 

‘Device not connected 
02BC:4C OC BE 32 JMP PRINTERR 
02BF:AD 16 BF 33 OK128 LDA DEVADR31 
02C2:CD 26 BF 34 CMP DEVADR32 
02C5:F0 28 O2EF 35 BEQ TRANSF 
02C7:8D 26 BF 36 STA DEVADR32 
02CA:AD 17 BF 37 LDA DEVADR31+1 
02CD:8D 27 BF 38 STA DEVADR32+1 
O0O2D0:AE 31 BF 39 LDX DEVCNT 
02D3:BD 32 BF 40 DEVLP LDA DEVLST,X 
02D6:29 70 41 AND #570 
02D8:C9 30 42 CMP #530 
02DA:F0 05 02E1 43 BEQ  GOTSLT 
02DC:CA 44 DEX 
02DD:10 F4 02D3 45 BPL DEVLP 
02DF:30 D9 02BA 46 BMI NORAM 
02E1:BD 33 BF 47 GOTSLT LDA DEVLST+1,X 
02E4:9D 32 BF 48 STA DEVLST, X 
02E7:F0 03 02EC 49 BEQ REMOVE 
02E9:E8 50 INX 
02EA:D0 F5 O02E1 51 BNE GOTSLT 
O2EC:CE 31 BF 52 REMOVE DEC DEVCNT 
O2EF: 53 ; initial transfert --> /RAM 
O2EF:A2 2F 54 TRANSF LDX #47 
02F1:38 55 SEC 
02F2:20 SA 03 56 JSR DOMOVE 
02F5:A2 17 57 LDX #23 
02F7:38 58 SEC 
02F8:20 5A 03 59 JSR DOMOVE 
02FB:38 60 SEC 
02FC:20 SA 03 61 JSR DOMOVE 
02FF:60 62 RTS 
0300: 
0300: 64 ; partie résidente 
O300:AE FF 03 65 ENTREE LDX $3FF 
0303:E8 66 INX 


0304:F0 24 
0306: 

03C6:20 00 9A 
0309:AD 41 BE 
030C:85 F2 
030E:20 4C B5 
0311:A9 00 
0313:20 F5 BE 
0316:C9 9A 
0318:F0 07 
031A:18 
031B:A5 74 
031D:69 04 
031F:85 74 
0321:A2 17 
0323:20 49 03 
0326:20 51 A8 
0329:60 

032A: 

032A:20 EO 9E 
032D:A2 29 
032F:20 49 03 
0332:A5 74 
0334:C9 96 
0336:F0 OD 
0338:A9 00 
033A:85 73 
033C:20 F5 BE 
033F:38 
0340:ES5S 74 
0342:20 F5 BE 
0345:20 7E 9A 
0348:60 

0349: 

0349:38 
034A:20 SA 03 
034D:38 
034E:20 SA 03 
0351:18 
0352:20 SA 03 
0355:18 
0356:20 SA 03 
0359:60 

035A: 


032A 


‘0321 


0345 


035A:08 
035B:A0 07 
035D:BD 74 03 
0360:99 3C 00 
0363:CA 
0364:C0 06 
0366:D0 02 
0368:88 
0369:88 
036A:88 
036B:10 FO 
036D:28 
036E:8A 
036F:20 11 C3 
0372:AA 
0373:60 

0374: 

0374:D0 6A 
037A:00 6B 
0380:D0 03 
0386: 

0386:00 96 
038C: 

038C:D0 95 
0392:D0 03 
0398:00 96 
039E: 

039E:D0 45 
$45D0, $6FFF, $6ADO 


036A 


035D 


039E 


67 BEQ CALLPRO 

68 ; 

69 CALLDOS JSR  UNHOOKPRO 

70 LDA DTRACE 

71 STA TRACE 

72 JSR  CLOSEALL 

43 LDA #0 

74 JSR  GETBUFR 

75 CMP #$9A 

76 BEQ CLDOS1 

77 CLC 

78 LDA HIMEM+1 

79 ADC #4 

80 STA HIMEM+1 

81 CLDOS1 LDX #23 

82 JSR DOMOVES 

83 JSR HOOKDOS 

84 RTS 

257 

86 CALLPRO JSR UNHOOKDOS 

87 LDX #41 

88 JSR DOMOVES 

89 LDA HIMEM+1 

90 CMP #596 

91 BEQ CLPRO1L 

92 LDA #0 

93 STA HIMEM 

94 JSR  GETBUFR 

95 SEC 

36 sBC HIMEM+1 

97 JSR GETBUFR 

98 CLPRO1 JSR  HKPROTRCE 

99 RTS 
100 ; 
101 DOMOVES SEC 
102 JSR DOMOVE 
103 SEC 

104 JSR DOMOVE 

105 CLC 

106 JSR DOMOVE 

107 CLC 

108 JSR  DOMOVE 

109 RTS 

110 ; appel AUXMOVE transfert 

n° (X+1)/6 

111 DOMOVE PHP 

112 LDY #7 

113 DMV1 LDA CMDTBL, X 

114 STA Al,Y 

115 DEX 

116 CPY #6 

117 BNE DMV2 

118 DEY 

119 DEY 

120 DMV2 DEY 

121 BPL DMV1 

122 PLP 

123 TXA 

124 JSR  AUXMOVE 

125 TAX 

126 RTS 

127 ; arguments de Move OS -->/RAM 
128 CMDTBL DW $6AD0, $6AFF, $03D0 
129 DW $6B00,$94FF,$9600 
130 DW $03D0,$03FF, $95D0 
131 7; 

132 DW $9600,SBFFF, $9600 
133 ; 

134 DW $95D0,$95SFF, $03D0 
135 DW $03D0,$03FF, $6AD0 
136 DW $9600,S$BFFF, $6B00 
137 END EQU * 
138 DW 
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Copie d'écran graphique 


n peut se demander la 

raison d'être d'un tel 

programme puisque 

la ROM de la carte 
d'interface de Silentype com- 
prend déjà une routine de copie 
d'écran graphique activée par 
CTRL-Q. Malheureusement, 
l'image ainsi obtenue m'a 
toujours paru trop petite et c'est 
ce qui m'a amené à écrire ce 
programme qui fournit une image 
quatre fois plus grande que celle 
obtenue par CTRL-Q, soit 
environ un format A4. Bien 
entendu, il a fallu renverser 
l'image qui ne sera plus imprimée 
ligne par ligne mais colonne par 
colonne. 


Le programme Basic n'appelle 
pas de commentaires particuliers. 
Il se contente de proposer un 
menu permettant, à l'utilisateur, 
de choisir les paramètres de 
l'imprimante et la page graphique 
1 ou 2. 

Noter au passage à partir de 2000 
la routine de lecture du catalogue 
en Basic (seul l'appel de RWTS 
est en langage machine et 
n'occupe que 6 octets). Les noms 
de fichiers binaires sont trans- 
férés dans le tableau F$. Le 
programme ne vérifie pas la 
longueur de ces fichiers, il est 
donc de la responsabilité de 
l'utilisateur de s'assurer qu'il 
s'agit bien d'une page graphique. 
Le contenu des pages graphiques 
peut être vérifié en appuyant sur 
les touches 1 ou 2. 


La routine en langage machine 
RECOP.OBJ est cachée à la fin 
du programme Basic. Elle est 
entièrement relogeable ce qui 
permet de modifier ce dernier à sa 
guise. Son rôle est de dédoubler 
chaque colonne de la page 
graphique avant d'en imprimer 
chaque octet deux fois de suite. 
Ainsi, un point à l'écran 
correspondra à quatre points sur 
le papier. L'impression peut être 
interrompue en appuyant sur la 
touche ESC, tandis que le mode 
d'impression (uni ou bidirec- 
tionnel) peut être modifié en 
cours d'impression par les 
touches U ou B. 


Enfin, si vous n'avez pas la 

disquette d'accompagnement, 

pour recopier le programme, il 

faut dans l'ordre suivant : 

* recopier le programme Basic 
sans en changer un octet ; 

+ vérifier que le pointeur de fin 
de programme ($AF - $B0) 
indique une valeur inférieure à 
$1573. Modifier ce pointeur en 
le mettant à $16BC ; 

+ recopier le programme en 
langage machine à partir de 
$1573 et sauver le programme 


Basic ainsi obtenu. . 
Programme 


RECOP.OBJ 


1573- A9 01 20 95 FE 


1578- 20 8E FD 
1580=.A9/11+85 
1588- AD 13 CF 
1590- 2A 85 E2 
1598- 1E 85 2B 
15A0- E1 20 11 
15A8- 4A 08 66 
15B0- 10 F6 4A 
15B8- E2 AS CE 
15C0- 04 A2 FF 
15C8- 00 85 CE 
15D0- 66 CE A2 
15D8- CE 28 66 
15E0- CE 4A 4D 
15E8- FF 86 CF 
15F0- CE E6 E2 
15F8- 9E 24 CF 
1600- AB CC 18 
1608- 88 A2 02 
1610- 01 CF B1 
1618- 0B CB 20 
1620- 20 A4 CB 
1628- A9 04 20 
1630- 2B 2C OF 
1638- CD C6 CF 
1640- 10 1B C9 
1648- DO 07 A9 
1650— 09 C9 C2 
1658- OF CF 2C 
1660- E9 07 85 
1668- 10 9B 30 
1670- CF A9 00 
1678- CB 20 A4 
1680- A4 CB 20 
1688- 08 B1l 2A 
1690- CB 20 A4 
1698- A4 CB 28 
16A0- AB CC 20 
16A8- 2C 10 CO 
16B0- 4C 93 FE 
16B8- 03 00 00 


A9 
EO 
85 
85 
AS 
F4 
CE 
48 
4A 
86 
A9 
02 
CE 
14 
91 
A5 
30 
90 
86 
2A 
A4 
C8 
AB 
CF 
DO 
9B 
FF 
DO 
10 
EO 
3F 
8D 
CB 
0B 
8D 
CB 
DO 
02 
A9 
20 
00 


20 
A9 
E6 
CE 
E2 
A2 
28 
08 
4D 
CF 
1F 
68 
CA 
CF 
2A 
E2 
oc 
38 
CF 
8D 
CB 
Co 
CC 
10 
DO 
FO 
8D 
05 
co 
BO 
A0 
2B 
20 
CB 
2B 
20 
EA 
CD 
1E 
E3 
00 


20 
01 
A9 
85 
A6 
02 
66 
66 
14 
S1 
85 
4A 
10 
FO 
A9 
C9 
A9 
A9 
A0 
2B 
20 
Co 
A9 
36 
AD 
62 
0F 
A9 
A5 
9F 
FF 
CF 
0B 
AO 
CF 
0B 
A9 
18 
20 
03 


AB 
85 
00 
CF 
EO 
B1 
CE 
CE 
CF 
2A 
2B 
08 
F6 
04 
00 
co 
08 
00 
00 
CF 
0B 
90 
1E 
20 
00 
C9 
CF 
00 
EO 
C6 
8cC 
20 
CB 
CO 
20 
CB 
04 
90 
AB 
4c 


85 


85 





Programme RECOP.SOURCE DU D js 
: sRecoit mage agrandie d'un octet 
(Assembleur Toolkit) 15 TEMOIN EQU $CF :Zéro si une ligne est vide. 
16 NC EQU $E0 :Numéro de la colonne courante 
17 NL EQU $E2 : Numéro de la ligne courante 
1 ORG $1573 18 HPAGE EQU $E6 : Page HGR courante 
F AL 19 KBD EQU $co00 Adresse du clavier 
a LÉLRELELELELEEELLELLELEELELELLLLLELELLELELLLELELLELLELLLLLLLLLLLLL) 20 KBDSTR EQU $co10 : Strobe du clavier 
4 *##*###“#*  RECOPIE D'ECRAN GRAPHIQUE SUR SILENTYPE *####amax 21 IMPRIME EQU S$CBOB : Imprime une barre verticale. 
CLS ReRAatRee 22 BARRE EQU $CF2B :Octet imprimé par IMPRIME 
6 “AAA R RE Auteur : BECHER GERARD 10/06/84 RARAARANR 23 TEMPO EQU S$CBA4 : Temporisation 
LALLLLLELLLE LELLELELEE) 24 SENS EQU $CFO1 :Détermine le sens d'impression 
CRRLELLELLLLELLELLELELEEEELELCEEELLTELTE ELLE EEE STEEL SELLES LLLLELLEEL) 25 DIR EQU SCFOF ;Uni ou bidirectionnel? 
9 * 26 PAGE EQU S$SCF13 Page Haute résolution ($20 ou $40) 
10 LELLLLSELELLLLLLLRLLSRLRLLLLLLLLELLRLRLLILRLRLELLLELLLELLLLLLELLLLLL EL) 27 INVERSE EQU SCF14 ; Mode normal ou inverse. 
11 HBASL  EQU $26 :Adresse d'un octet de la page HGR 28 DEROULE EQU $CCAB ;: Déroulement du papier 
12 IMAGL  EQU $2A Adresse de l'image agrandie 29 RETOUR EQU $CDO2 Retour de la tete en colonne 0. 





Pom's n° 20 


20 





sur Silentype 


30 HPOSN 
31 CROUT 


EQU 
EQU 


$F411 
$FD8E 


32 SETVID EQU $FE93 


LkMELELELLLELLLLELLELELLLLLELLLLELLLLELLLLLLLLL ELLE LLLLLL LL. ELLE) 


34 * 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 DOUBLE 
49 
50 
51 SUIVANT 
52 
53 
54 
55 
56 
57 
58 
59 DECALI 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 NULI 
78 
79 
80 
81 
82 
83 
84 
85 
86 DECAL2 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 NUL2 
100 
101 
102 
103 
104 
105 
106 * 


#1 
SETVID+2 
CROUT 
+520 
DEROULE 
#>273 
NC 
#+<273 
NC+1 
PAGE 
HPAGE 
#0 
IMAGL 
NL 
TEMP 
TEMOIN 
#$1E 
IMAGH 
NL 
NC 
NC+1 
HPOSN 
+2 
(HBASL),Y 
A 


TEMP 


TEMP 


DECAL1 
A 


INVERSE 
NUL1 

#$FF 
TEMOIN 
(IMAGL) ,Y 
#0 

TEMP 

+$1F 
IMAGH 


TEMP 
#2 


À 


TEMP 


TEMP 


DECAL2 
TEMP 

A 
INVERSE 
NUL2 
#$FF 
TEMOIN 
(IMAGL),Y 
#0 

TEMP 

NL 

NL 

+192 
SUIVANT 


;:Calcule l'adresse d'un point HGR 
Envoie un Retour Chariot 
iSimule PR# 


:PR#1 
Envoie un Retour Chariot 


:Déroule le papier 
iInitialise le numéro de colonne 
+ (commence par la dernière colonne) 


Fixe le numéro de page pour HPOSN 


sinitialise le numéro de ligne 


;: (Reste à 0 si la colonne est vide) 
iLa lère série de 192 octets sera 
rangée en $1E00, la 2ème en $1F00 
;Calcule l'adresse de base d'un octet 
:de la page graphique en fonction de 
; son numéro de ligne et de colonne. 


:Décale chaque octet bit par bit 

sen dédoublant chacun des sept bits 
iL'octet est décalé à droite et 
chaque bit qui tombe dans la retenue 
; sera réintégré deux fois dans 
tl'octet de travail temporaire TEMP 


:On répète ce processus trois fois 
ssoit six bits dans TEMP 

;Le bit suivant tombe dans la retenue 
set formera le septième bit de TEMP 

; Sauvegarde de ce bit qui n' a été 
sréintégré qu'une fois dans TEMP 


iL'octet résultant est chargé 

; son bit de poids fort mis à zéro 
Eventuellement il est inversé 

;Un octet nul ne modifie pas TEMOIN 
tandis qu'un octet non nul le mettra 
irrémédiablement à $FF 

Résultat rangé à partir de $1E00 
;iLa mémoire de travail TEMP est 
Remise à zéro 

La prochaine série sera rangée 

sen $1F00 au lieu de $1E00 

;:On récupère le bit qui avait été 

; sauvegardé et on le réintègre 

: dans TEMP. Les trois bits restants 
;: sont dédoublés de la meme facon 
que précédemment 

set formeront un nouvel octet TEMP 
‘qui sera traité comme le premier 


puis rangé à partir de $1F00 
sbit 7 à zéro 
sEventuellement inversé 


+ TEMOIN mis à $FF car 
il'octet en question n'est pas nul. 
Rangement du résultat 


:Remise à 0 de la mémoire de travail 
: Comptage des octets de la colonne. 
‘Les 192 octets de la colonne 
sont-ils été tous traités 2? 

: NON => Octet suivant 


107 HAARAARRRARURANRARÉ LR ÉAÉRRRARAR RAR RRÉRRÉLÉ RAR ARR ARR RRR ARR RSR A AR 


108 * 





Impression des deux séries de 192 octets 
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109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 








Gérard Becher 


RRRRR ARR RÉ ÉRÉ RER ÉÉRÉÉÉÉRÉÉ RAR ÉÉ ARR RÉ ÉÉÉAÉÉ RÉ É RÉ RÉRÉRÉENÉRARÉRÉA 


BIT 


* 


TEMOIN 
IMPLIN 
+8 
DEROULE 


CLAVIER 


‘La ligne à imprimer est-elle vide? 
NON => Va l' imprimer \ 
OUI => / 
:Se contente de dérouler le papier 


LELELELELLELEE EEE LE CEE LELEEE LE ELLE EE LL LEE EC LELELL EL ELLLL ELLE) 


SAUT2 LDA 


BPL 


+0 
DOUBLE 


Relais pour remonter jusqu'à DOUBLE 


LÉLLELLELEELELLLLELELELELLLELELLELLLELLLEETELELEETETEETETTE 


IMPLIN LDX 
STX 
LDY 
STY 
LDA 
STA 
JSR 
JSR 
JSR 


LINDIR2 


LINDIRI 


* 


+2 
TEMOIN 
+0 

SENS 
(IMAGL) ,Y 
BARRE 
IMPRIME 
TEMPO 
IMPRIME 
TEMPO 


#192 
LINDIRI 
+4 
DEROULE 
#$1E 
IMAGH 
DIR 
BIDIR 
RETOUR 
TEMOIN 
LINDIR2 


Sélectionne le sens 

:de gauche à droite 

Chaque octet de la série est imprimé 
isous la forme d'une double barre 
;Imprime une barre verticale 
:Temporisation 

Double la barre imprimée. 


:0ctet suivant 

Dernier octet ? 

:NON => On recommence 

: OUI => Avance le papier (LF) 


Pointe vers la lère série d'octets 


:Bi- ou Uni-directionnel ? 

:BI 

; UNI => revient en début de ligne 
set effectue la 2ème passe 


LEPELELELCELELELCEECECEE ELLE EEE EEE LEE EE TELLE LLELLITEETIETELLEE) 


* 


CLAVIER LDA 


CLAV1 


SUITE 
SUITE2 


* 


KBD 
SUITE2 
+598 
ARRET 
+'u' 
CLAV1 
#$FF 
DIR 
SUITE 
lc 
SUITE 
#0 

DIR 
KBDSTR 
NC 


+7 

NC 
SAUT2 
NC+1 
SAUT2 
FIN 


:Test du clavier. 

Pas de touche enfoncée. 
:ESCAPE ? 

Oui => Arret impression. 
307? 


;:=> Mode Uni-directionnel. 


5B? 
:=> Mode Bi-directionnel 
:Efface le clavier 


:Passe à la colonne précédente 
sen reculant de 7 points 


:Et remonte jusqu'en DOUBLE 
: Terminé ! 


LÉLLELLELLLLE SELLES ELLE EEL LEE LELEELETEELEEETEETTTETTET LITE) 


BIDIR LDY 
STY 
LDA 
STA 
JSR 
JSR 
JSR 


JSR 


4$FF 
SENS 

+0 
BARRE 
IMPRIME 
TEMPO 
IMPRIME 
TEMPO 


i Change le sens d'impression 
; (de droite à gauche) 


:Ratrappe un décalage de 3 barres 


21 
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183 JSR IMPRIME 

184 LDY #192 ; imprime la ligne à l'envers 

185 LININV DEY jen commencant par le dernier octet 
186 PHP 

187 LDA  (IMAGL),Y 

188 STA BARRE 

189 JSR IMPRIME ; Imprime une barre verticale 

190 JSR TEMPO ; Temporisation 

191 JSR IMPRIME ;Double la barre imprimée. 

192 JSR TEMPO 

193 PLP ; Terminé 2? (Y = 02) 

194 BNE LININV ;: NON => Octet précédent 

195 LDA #4 OUI => Line Feed 

196 JSR DEROULE ;: (Descend d'un cran) 

197 JSR RETOUR :Et se repositionne en début de ligne 
198 CLC 

Programme RECOPECRAN 


NB : À la suite de ce programme est "cachée”une routine en 
langage machine. Voir texte. 


10 TEXT : HOME 
20 PRINT "RECOPIE D'ECRAN GRAPHIQUE SUR SILENTYPE* 
20 PRINT somme , 


40 LOMEM: 24576 

50 POKE 34,2: POKE 33,33: POKE 32,7 

60 OF = O:A$ = "AD = VAL (A$) + PEEK (131) + 256 * PEEK 

(132):1 = 0 

70 MG = 10:IN = 7:PG = 1 

80 DIMF$(105) 

90 REM Impression des valeurs par defaut 

100 HOME : NORMAL 

110 VTAB 6: PRINT "CHARGEMENT IMAGE :*: GOSUB 1100 

120 VTAB 8: PRINT "MARGE GAUCHE : “: GOSUB 1200 

130 VTAB 10: PRINT "INTENSITE _ : ": GOSUB 1300 

140 VTAB 12: PRINT "PAGE :*: GOSUB 1400 

150 GOSUB 1500: GOSUB 1600 

160 VTAB 21: HTAB 1: CALL - 958: PRINT " <ESPACE> POUR 
MODIFIER": PRINT “<RETURN> POUR POURSUIVRE": 
PRINT“ <ESC> POUR QUITTER": PRINT" <1> OÙ <> 
POUR HGR"; 

170 GOSUB 1000: IF À = 141 THEN 600 

180 IF A = 155 THEN TEXT : HOME : END 

185 GOSUB 3000 

190 IF À < > 160 THEN 170 

200 REM Modification des paramètres 

210 VTAB 21: HTAB 1: CALL - 958: PRINT "<ESPACE> POUR 
CHOISIR": PRINT "-> OÙ <- POUR MODIFIER": PRINT 
"<RETURN> POUR CONCLURE": PRINT * <1> OÙ <2> POUR 
HGR"; 

220 IT=0 

230 ON IT GOTO 300,350,400,450,500 

250 INVERSE : GOSUB 1110: GOSUB 1000: IF À = 160 THEN IT 
= 1: GOSUB 1100: GOTO 230 

260 IF À = 149 THEN IM = (IM + 1) * (IM < 2): GOTO 250 

270 IF A = 136 THENIM=(IM-1)°(IM> 0) +2°* NOT IM: GOTO 
250 

280 IF À = 141 OR A = 155 THEN 100 

290 GOSUB 3000: GOTO 250 

300 INVERSE : GOSUB 1210: GOSUB 1000: IF À = 160 THEN IT 
= 2: GOSUB 1200: GOTO 230 

310 IF A = 149 THEN MG = (MG + 1) * (MG < 20): GOTO 300 

320 IF A = 136 THEN MG = (MG - 1) * (MG > 0) +21 * NOT MG: 
GOTO 300 

330 IF A = 141 OR A = 155 THEN 100 

340 GOSUB 3000: GOTO 300 

350 INVERSE : GOSUB 1310: GOSUB 1000: IF À = 160 THEN IT 
= 3: GOSUB 1300: GOTO 230 

360 IF A = 149 THEN IN = (IN + 1) * (IN < 7): GOTO 350 

370 1F À = 136 THENIN = (IN - 1) * (IN >0)+7* NOT IN: GOTO 
350 


380 IF À = 141 OR A = 155 THEN 100 

390 GOSUB 3000: GOTO 350 

400 INVERSE : GOSUB 1410: GOSUB 1000: IF À = 160 THEN IT 
= 4: GOSUB 1400: GOTO 230 


199 BCC CLAVIER 

200 * 

ELPRRLILLILELLESILILLILLLLLLLLLLLLLLLLLLELLEE LEE EEEEEEEEEELEEEE LS 
202 * 

203 ARRET BIT KBDSTR 


204 FIN LDA #30 

205 JSR DEROULE ;Déroule le papier. 
206 JMP SETVID : PR#0 

207 * 

208 RRRRRRRRRRRRRÉRÉÉRÉRERÉÉRÉÉRÉRRÉRARNRRRRRRRÉÉRÉÉRÉERRRÉRRRELRRÉARÉÉX 
209 * 

210 JSR $3E3 :Appel de RWTS 

211 JMP $3D9 

212 BRK 

213 BRK 

214 BRK 


410 IF À = 149 OR A = 136 THEN PG = NOT (PG - 1) + 1: GOTO 
400 

420 IF A = 141 OR A = 155 THEN 100 

430 GOSUB 3000: GOTO 400 

450 INVERSE : GOSUB 1510: GOSUB 1000: IF À = 160 THEN IT 
= 5: GOSUB 1500: GOTO 230 

460 IF A = 149 OR A = 136 THEN MOD = NOT MOD: GOTO 450 

470 IF A = 141 OR A = 155 THEN 100 

480 GOSUB 3000: GOTO 450 

500 INVERSE : GOSUB 1610: GOSUB 1000: IF À = 160 THEN IT 
= 0: GOSUB 1600: GOTO 230 

510 IF A = 149 OR A = 136 THEN DIR = NOT DIR: GOTO 500 

520 IF A = 141 OR A = 155 THEN 100 

530 GOSUB 3000: GOTO 500 

600 IF NOT IM THEN 700: REM Pas d'image à charger 

610 GOSUB 2000: REM Lecture catalogue 

620 IF NOT | THEN 100: REM Pas d'image sur ce disque. 

630 VTAB 22: HTAB 1: PRINT “NOM DE FICHIER,NUMERO, OÙ 
<RETURN>"; 

640 INPUT "==>";A$: IF LEN (A$) = O THEN 100 

650 IF VAL (A$) > O AND VAL (A$) < = | THEN A$ = F${ VAL (A$) 
-1) 

660 PRINT CHRS (4)"BLOAD";A$;",A";8192 * PG;",D";IM 

670 IM = 0: GOTO 100 

700 REM Oninitialise l'imprimante 

710 REM Et on fixe les paramètres 

720 PRINT : PRINT CHRS (4);"PR#1": PRINT 

730 PRINT CHRS (4);"PR#0" 

740 POKE - 12527,MG: POKE - 1252B,IN: POKE - 12529,255 * 
DIR: POKE - 12524,255 * MOD: POKE - 12525,32 * PG 

745 POKE 49239,0: POKE 49234,0: POKE 49235 + PGO: POKE 
49232,0 

750 CALL PEEK (175) + 256 * PEEK (176) - 329: GOSUB 3030: 
GOTO 100 

1000 IF PEEK (49152) < 128 THEN 1000 

1010 A= PEEK (49152): POKE 49168,0: RETURN 

1100 NORMAL 

1110 VTAB 6: HTAB 20: CALL - 868: ON IM GOTO 1130,1140 

1120 PRINT "NON": RETURN 

1130 PRINT “DRIVE 1": RETURN 

1140 PRINT "DRIVE 2“: RETURN 

1200 NORMAL 

1210 VTAB 8: HTAB 16: CALL - 868: PRINT MG: RETURN 

1300 NORMAL 

1310 VTAB 10: HTAB 16: CALL - 868: PRINT IN: RETURN 

1400 NORMAL 

1410 VTAB 12: HTAB 16: CALL - 868: PRINT PG: RETURN 

1500 NORMAL 

1510 VTAB 14: CALL - 868: PRINT "MODE “;: IF MOD THEN 

PRINT “INVERSE": RETURN 

1520 PRINT "NORMAL": RETURN 

1600 NORMAL 

1610 VTAB 16: CALL - 868: IF DIR THEN PRINT “UNI";: GOTO 

1630 
1620 PRINT "B|"; 


Suite de Recopecran page suivante — 
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Manipulation de 
catalogue 


Jean-Luc Arnaud 


e programme, écrit 

avec l'assembleur Lisa 

1.5, vous permet de 

modifier le catalogue 
de votre disquette de façon simple 
et efficace. Ainsi, vous pouvez 
renommer un fichier, déplacer 
une zone de fichiers, échanger la 
place de deux fichiers, … 


Mode d'emploi 


Lors du chargement du program- 
me, l'écran se divise en deux 
fenêtres : 


- une fenêtre menu sur le bas de 
l'écran, sur laquelle s'affiche- 
ront les différentes fonctions 
auxquelles vous aurez accès ; 

- une fenêtre de travail sur le 
reste de l'écran. 


En premier lieu, vous devez 

demander le chargement d'un 

catalogue. La première option à 

choisir. est donc “€. ‘Le 

programme vous demande alors 

la confirmation de votre choix ; 

quatre réponses sont autorisées : 

+ O pour Oui; 

e Npour Non; 

+ 1 ou 2 correspond au numéro 
du lecteur où se trouve la 
disquette dont le catalogue doit 





Suite de RECOPECRAN 
1630 PRINT "DIRECTIONNEL": RETURN 





2000 REM Sous progr. de lecture du catalogue 


2010 HOME 

2020 POKE 47082,IM: REM Drive 
2030 POKE 47083,0: REM Volume 
2040 POKE 47084,17: REM Piste 


2050 POKE 47088,187: POKE 47089,180: REM Buffer en $B4BB 


2060 POKE 47092,1: REM Read 
2070 1 = 0:S = O:P = 0 
2080 POKE 47085,15 - S: REM Secteur 


2090 CALL PEEK (175) + 256* PEEK (176) -9 
2100 IF PEEK (47093) THEN PRINT : PRINT CHRS$ (7):1O 


ERROR": POP : TEXT : END 
2110 OF = 11: POKE AD,30 
2120 IF PEEK (46267 + OF) = 255 THEN 2180 
2130 IF PEEK (46267 + OF) = 0 THEN 
2210 : REM Fin du catalogue 
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être manipulé. 
Le catalogue de votre disquette 


étant chargé, le programme vous 
propose : 


+ la lecture 

+ l'édition 

+ la modification 

+ le réenregistrement 

+ la sortie du programme. 


Lecture 


Ce choix est l'équivalent d'un 
CATALOG, il vous permet donc 
de visualiser les noms de fichiers 
de votre catalogue. En 
LECTURE le programme vous 
demande le numéro du premier 
secteur et le nombre de secteurs à 
lire (il vérifie les dépassements). 
Les titres s'affichent alors et sont 
précédés d'un numéro (1 à 255, 
voir explications techniques) et 
du signe +, - ou &, suivant qu'il 
s'agit d'un fichier existant (+), 
d'un fichier effacé (-) ou d'un 
commentaire (&). 


Signalons à ce propos que lors 
d'un DELETE, le fichier n'est 
pas effacé de la disquette. Le 
DOS se contente de remplacer le 
numéro de piste de la liste 
pistes/secteurs du fichier concer- 


2180 


2150 POKE AD + 2, INT ((46270 + OF) / 256): POKE AD + 1,46270 
+ OF - 256 * PEEK (AD + 2):F${I) = A$ 

2160 IF I AND 1 = 18 * INT (1/18) THEN VTAB 23: PRINT 
*APPUYEZ SUR UNE TOUCHE": PRINT "POUR 
CONTINUER";: GOSUB 1000: HOME 

2170 VTAB 4 +1-18* INT (1/18): = 1 + 1: PRINT l:: HTAB 4: 


PRINT A$ 
2180 OF = OF +35 


2190 IF OF < 255 THEN 2120 
2200 S =S + 1: GOTO 2080 


2210 RETURN 


POKE 49232,0 


3020 FOR | = 0 TO 1000: NEXT 
3030 POKE 49236,0: POKE 49233,0: RETURN 


2140 A= PEEK (46269 + OF): IF NOT (A = 4 OR A = 132) THEN 


3000 REM VOIR UNE PAGE HGR 
3005 IF NOT (A = 177 OR A = 178) THEN RETURN 
3010 POKE 49239,0: POKE 49234,0: POKE 49236 + (A = 178),0: 


né par $FF : on peut donc 
toujours retrouver dans le 
catalogue un nom de fichier 
effacé auparavant. 


Lors de l'affichage du catalogue, 
si le nombre de fichiers est 
supérieur au nombre de lignes 
disponibles dans la fenêtre, la 
touche ESPACE vous permettra 
de continuer et de visualiser tous 
les noms des différents fichiers 
composant le catalogue. Dans ce 
cas, comme à l'entrée des 
informations, le nombre de 
secteurs occupés est inscrit. Cette 
opération effectuée, le program- 
me vous renvoie au sous-menu 
LECTURE. 


Edition 

Le choix EDITION conduit à un 
sous-menu qui propose l'échange 
entre deux titres ou le déplace- 
ment d'une zone. | 
L'ECHANGE ne nécessite pas 
d'explications particulières. Il 
suffit de donner les numéros des 
deux titres à échanger ; ainsi, 
l'ordre des noms de fichiers est 
modifié. Le programme renvoie 
ensuite à l'écran les titres du 
secteur - catalogue déterminé par 
le 2ème numéro. 
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Exemple : 

A partir du menu général, tapez E 
(Edition) puis E (Echange) et 
enfin 3,40. Ainsi, les titres n°3 et 
40 sont échangés et le secteur 6 
est affiché (titres 36 à 42). De la 
même manière, On aurait pu 
entrer 40,3 ; dans ce cas, c'est le 
secteur 1 (titres 1 à 7) qui 
s'affiche. 


Le DEPLACEMENT permet 
d'insérer des titres ou des 
commentaires rapidement. Il 
suffit d'entrer les limites 
supérieure et inférieure de la zone 
à traiter et le numéro du titre à 
partir duquel la zone sera 
implantée. Il est évident qu'il 
s'agit, en fait, d'un échange entre 
la zone à déplacer et la zone de 
destination. Le programme vérifie 
que le transfert ne se fait pas 
au-delà des limites du catalogue. 


Exemple : 

A partir du menu général, tapez E 
(Edition) puis D (Déplacement) et 
entrez les valeurs 1,10,40. La 
zone 1 à 10 est déplacée en 40 à 


49 tandis que la zone 40-49 passe 
en 1-10. 


Si les valeurs entrées sont 
1,10,2 : la zone 1-10 passe en 
2-11, 11 passe en 1 : il y a 
insertion d'une ligne. 


On peut aussi faire "remonter" 
une zone : 


Exemple : 


Supposons que les valeurs saisies 
sont 90,100,30 : la zone 90-100 


Récapitulation 
LECTCAT 


0801- A9 4C 8D F5 03 A9 10 

0808- 8D F6 03 A9 08 8D F7 03 
0810- A2 00 86 00 B5 00 9D 00 
0818- 78 CA DO F8 A9 FO 85 36 
0820- A9 FD 85 37 A9 1B 85 38 
0828- A9 FD 85 39 20 58 FC A9 
0830- 12 85 25 4C A5 08 42 08 
0838- FE 09 52 0B 07 OD 87 OE 
0840- 13 09 20 5B 10 20 C6 10 
0848- 20 62 FC A9 00 85 00 85 
0850- 18 A9 11 8D B5 10 A9 OF 
0858- 8D B6 10 A9 20 8D BA 10 
0860- A9 01 8D BD 10 A9 O1 85 


0868- CE A9 1F 85 CF 20 A9 10. 


passe en 30-40 et vice-versa. 
Ainsi, les entrées 90,100,30 et 
100,90,30 sont équivalentes. 


Modification 


Choisissons maintenant Ja 
MODIFICATION d'un titre. 
Cette partie du programme offre 
les possibilités suivantes : 


. modification du titre d'un 
fichier ; 

* mise en place de commentaires 
(texte et symboles divers) ; 

- effacement du titre d'un fichier 
précédemment DELETé ou 
d'un commentaire. Par précau- 
tion, il est impossible d'effacer 
le titre d'un fichier présent. 


Afin de modifier le nom d'un 
fichier, il faut entrer le numéro du 
titre à traiter. Celui-ci s'affiche 
précédé de son numéro, et 
surmonté d'une échelle, de 30 
caractères, graduée de 1 en 1, 
repérée de 5 en 5. Le curseur est 
positionné sur le premier carac- 
tère du titre. 

Les facilités de l'éditeur (touches 
de déplacement du curseur et 
fonction ESCape) sont naturelle- 
ment accessibles pour cette 


modification. 


Le programme détermine 
lui-même si vous manipulez un 
commentaire, un nom de fichier 
présent ou un titre de fichier déjà 
effacé. La seule précaution à 
prendre est de ne pas remplacer 
un titre de programme par une 
suite de symboles non acceptée 
par le DOS, celui-ci ne le 





0870- E6 CF A9 00 A8 D1 CE DO 
0878- 17 C8 D1 CE DO 12 A5 18 
0880- 18 69 01 OA OA OA 38 E5 
0888- 18 85 06 C6 06 4C A5 08 
0890- AO 00 B1 CE 8D B5 10 C8 
0898- B1 CE 8D B6 10 EE BA 10 
O8A0- E6 18 4C 6D 08 A5 25 85 
08A8- 08 A9 00 85 24 A9 14 85 
08B0- 25 85 22 A9 18 85 23 20 
08B8- 58 FC A9 9E AO 09 20 26 
08C0- OF A9 AO 20 1B FD C9 C3 
08C8- DO 05 A2 00 4C FD 08 C9 
O8D0- CC DO 05 A2 02 4C FD 08 
08D8- c9 C5 DO 05 A2 04 4C FD 
08E0- 08 C9 CD DO 05 A2 06 4C 
08E8- FD 08 C9 D2 DO 05 A2 08 
08F0- 4C FD 08 C9 D4 FO 1C 20 
08F8- DF 10 4C C1 08 20 FD FB 


retrouverait plus. Il est donc 
indispensable de redonner un 
nom reconnaissable par le DOS. 


L'effacement automatique s'ob- 
tient en tapant un RETURN à 
vide lors de l'entrée du texte. 
Après confirmation et contrôle, le 
texte est effacé. Il est également 
possible de taper ESPACE et 
RETURN ; dans ce cas le texte 
est effacé et remplacé par un 
‘blanc’ qui apparaît lors du 
catalogue, sous forme d'une ligne 
vide (pour aérer..). Une tentative 
d'effacement du titre d'un fichier 
présent conduit à l'affichage d'un 
message d'erreur, avec retour au 
menu général. 


Réenregistrement 


Votre œuvre mise au point, il 
s'agit de la sauvegarder en la 
réenregistrant sur la MEME 
disquette. Choisissez simplement 
l'option R (Réenregistrement) qui 
transfère le contenu de la 
mémoire vers la disquette. Cette 
option est éminemment dangereu- 
se puisqu'elle détruit le catalogue 
original et le remplace par celui 
que vous avez préparé (croyez-en 
mes malheureuses expé- 
riences.….). Il est donc nécessaire 
de confirmer le choix par 1/2/0/N 
: lecteur 1 ou 2, Oui, Non. 


Attention : il est indispensable 
d'enregistrer le catalogue sur la 
MEME disquette. Sinon adieu 
vos beaux fichiers ! 


Terminer 
Vous pouvez recommencer une 





0900- 20 62 FC 20 62 FC BD 36 
0908- 08 85 EB BD 37 08 85 EC 
0910- 6C EB 00 A5 00 C9 FF FO 
0918- 42 20 C6 10 20 58 FC 20 
0920- D3 10 20 62 FC 20 62 FC 
0928- A9 34 AO 09 20 26 OF C6 
0930- 00 4Cc AS 08 26 45 52 54 
0938- 53 49 47 45 52 4E 45 60 
0940- 53 41 50 60 5A 45 56 41 
0948- 67 4E 60 53 55 4F 56 60 
0950- 7A 60 4E 4F 49 54 4E 45 
0958- 54 54 41 A2 00 BD 00 78 
0960- 95 00 CA DO F8 20 58 FC 
0968- A9 8D AO 09 20 26 OF 20 
0970- D3 10 20 62 FC 4C DO 03 
0978- 14 AO BA AO D2 D5 C5 D4 
0980- c3 C5 CC A0 C5 C4 A0 CF 
0988- D2 C5 CD D5 CE 10 D2 C5 
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séance de travail, éventuellement 
en changeant de lecteur, sinon 
tapez T pour Terminer. 


Il existe un contrôle, lors de la 
demande de sortie du program- 
me, afin de ne pas oublier 
d'enregistrer la séance de travail. 
Une seconde sortie, immédiate- 
ment après la première, vous 
permet de quitter le programme 
sans enregistrement. 


Contrôles effectués 
par le programme 


+ Tout RETURN à vide renvoie 
au menu principal. 

+ Les numéros des titres ne 
peuvent être nuls ou supérieurs 
au maximum autorisé par le 
catalogue (en tout état de cause 
<= 255). 

+ _ Par conséquent, il est impossi- 
ble de demander le transfert 
d'une zone vers une autre 
franchissant la limite du 
catalogue, par exemple 1,50, 
80 (pour un catalogue normal 
contenant au plus 105 titres), 
qui déplace les titres 1 à 50 
vers 80 à 129. 

+ Le nombre de réponses doit 
correspondre à ce qui est 
attendu. 

+ En cas de non respect des 
règles ci-dessus, le programme 
vous repose la question. 

+ On ne peut pas effacer le titre 
d'un fichier présent. 

+ Rappel à l'ordre en cas de 
sortie du programme sans 





0990- C3 CE C1 CC C5 D2 AO D2 
0998- D5 CF DO AO A6 CO 5F AO 
O9A0- BA AO D8 C9 CF C8 C3 AO 
O9A8- C5 D2 D4 CF D6 CO AO C5 
09B0- CE C9 CD D2 C5 DD D4 DB 
09B8- AO AO AO C5 D2 D5 D4 C9 
09C0- D2 C3 C5 C5 DD D2 DB AO 
09C8- AO AO AO AO D2 C5 C9 C6 
09D0- C9 C4 CF DD CD DB AO CE 
09D8- CF C9 D4 C9 C4 DD C5 DB 
09E0- AO AO AO AO AO AO C5 D2 
09E8- D5 D4 C3 C5 DD CC DB AO 
09F0- AO A0 D4 CE C5 CD C5 C7 
09F8- D2 C1 C8 DD C3 DB A9 OC 
0A00- AO 0B 20 26 OF A2 03 A9 
0A08- FD A0 09 20 43 OF A9 00 
OA10- 85 O1 A5 19 18 65 1A 38 
0A18- E9 02 85 1B A5 18 C5 1B 
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enregistrement. 


Une disquette dont le catalogue 
est modifié par cet utilitaire ne 
peut plus être copiée entièrement 
par le programme FID, les 
commentaires provoquant une I/O 
ERROR. II faut donc copier les 
fichiers en sautant les commen- 
taires. Le programme COPYA 
fonctionne parfaitement. 


Technique 


L'utilitaire est entièrement écrit en 

assembleur (Lisa 1.5), d'une part 

nécessaire pour la rapidité 
d'exécution, d'autre part pour le 
plaisir. 

Globalement, le catalogue est 

chargé en MEV, manipulé et 

enfin réécrit sur la disquette. Le 
programme ne touche pas à la 

VTOC (piste $11, secteur O). 

+ Possibilité de lire n'importe 
quel catalogue commençant en 
piste $11, secteur $F, en 
utilisant les pointeurs de 
chaînage d'un secteur avec le 
suivant, autorisant un 
maximum de 255 titres. En 
récupérant les pistes O à 2, il 
est possible de stocker environ 
260 fichiers de 2 secteurs 
chacun, un secteur liste 
piste/secteur et un secteur 
données, sur une seule 
disquette. 

+ Assemblage en $801 pour 
éliminer le SYNTAX ERROR 
provoqué par NEW, LIST ou 
RUN après retour au Basic 





0A20- BO 3D A5 25 C9 14 BO 15 
0A28- A5 25 85 08 A9 00 85 24 
0A30- A9 14 85 25 85 22 A9 18 
0A38- 85 23 20 58 FC 20 D3 10 
0A40- A9 3D AO 0B 20 26 OF A9 
0A48- 00 A6 18 E8 20 24 ED A9 
0A50- 48 AO 0OB 20 26 OF 20 62 
OA58- FC 20 62 FC 4C FE 09 A5 
0A60- 01 DO 05 20 C6 10 C6 01 
0A68- 20 62 FC C6 19 A9 00 85 
0A70- 1C 85 75 A5 19 OA OA OA 
0A78- 38 E5 19 18 69 01 18 65 
0A80- 1C 85 1D AA A9 00 20 24 
OA88- ED A2 02 20 4A F9 A9 O4 
0A90- 85 24 A9 20 18 65 19 85 
0A98- CF A5 1C OA OA OA OA OA 
OAA0- 18 65 1C 65 1C 65 1C 69 
OAA8- 0B 85 CE A2 00 Al CE FO 








($800 doit contenir 0). 
Sauvegarde de la page zéro en 
$7800 et débranchement du 
DOS à l'initialisation de la 
routine. La mise hors service 
du DOS s'explique par la 
nécessité de pouvoir manipuler 
des mots réservés du DOS, 
sans obtenir le fatal NOT 
DIRECT COMMAND. 
En MEV, le catalogue est 
stocké à partir de l'adresse 
$2000. Une zone de transition 
pour les déplacements com- 
mence en $4600. 
L'entrée des commentaires 
entraîne la mise du numéro de 
piste de la liste piste/secteur à 
une valeur supérieure à $22 et 
inférieure à $FF ($30) ; en 
d'autres termes, le commen- 
taire apparaît pour le DOS ni 
comme un fichier effacé (il ne 
s'afficherait pas lors d'un 
CATALOG), ni comme un 
fichier présent (une tentative 
de chargement entraînerait une 
1/0 ERROR). C'est ce numéro 
insolite que FID ne digère pas. 
La routine d'écriture sur 
disquette est modifiée de façon 
à pouvoir enregistrer un 
catalogue plus long que la 
normale. Elle commence par le 
secteur $F, piste $11 puis 
utilise les octets de chaînage 
pour les secteurs suivants. 
Retour au Basic en rebranchant 
nn et en restituant la page 
ro. 
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Programme 
LECTCAT.SOURCE 
(Assembleur LISA 1.5) 


L NLS 


N 
a 


= EDITEUR DE CATALOGUE DOS 3.3 = 


e] 

4 

5 

6 ;= ( CATALOGUE COMMENCANT EN = 
7 ;= PISTE $11, SECTEUR $OF ) = 
8 


11 FINFLG EPZ $0 
12 LECFLG EPZ $1 


13 ADR EPZ $EB ; JMP (ADR) 
14 FLAG EPZ $CE 

15 CH EPZ $24 

16 CV EPZ $25 

17 SECT EPZ $18 : NBRE SECT 
18 C1 EPZ $19 ; STOCKE 

19 C2 EPZ $1A : LES 

20 NBSECT EPZ $1B ; DONNEES 
21F EPZ $1C 


22 NUMFIC EPZ S1D 
23 NUMMAX EPZ $06 
24 CVANT EPZ $08 
25 A1L EPZ $3C 
26 AlH EPZ $3D 
27 A2L EPZ $3E 
28 A2H EPZ $3F 
29 A4L EPZ $42 
30 A4H EPZ $43 
31 FLAG2 EPZ $75 
32 DESTL EPZ $F9 
33 DESTH EPZ SFA 


34 C EPZ $FB 
35 BOUCLE EPZ $FC 
36 IN EQU $200 


37 RWTS EQU $3D9 

38 AMPERV EQU $3F5 

39 SGNFLT EQU $E301 
40 LINPTR EQU $ED24 
41 ORIG EQU $2002 
42 PRBL2 EQU $F94A 
43 CTRL.S EQU $FB7C 
44 BELL2 EQU $FBE6 
45 STORAV EQU $FBFO 
46 VIDOUT EQU $FBFD 
47 KEYIN EQU $FD1B 
48 CR EQU $FC62 
49 CLREOL EQU $FC9C 
50 GETLIN EQU $FD6C 
51 MOVE EQU $FE2C 


92 ? 

53 ORG $801 

54 >; 

55 
36 INITIALISATION & 





57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
74 
72 
73 
74 
35 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
LIT 
112 
113 
114 
115 
116 
117 





BEGIN LDA #$4C ; $4C = JUMP 
STA AMPERV 
LDA #DEBPGM 
STA AMPERV+1 
LDA /DEBPGM 
STA AMPERV+2 


ee ee me me 


DEBPGM LDX #$00 : 256 BOUCLES 
STX FINFLG ; DRAPEAU ZERO 
PGO LDA $00,Xx 
STA $7800,Xx 
DEX 
BNE PGO 
: DEBRANCHE LE D.0.S. 
LDA #$F0 
STA $36 
LDA #$FD 
STA $37 
LDA #$1B 
STA $38 
LDA #$SFD 
STA $39 


. 


JSR $FC58 
LDA #18 
STA CV 
JMP MENU 


TABLE ADR INIT 
ADR LECTUR 
ADR EDIT 
ADR MODIF 


INIT JSR OK? 
JSR WINDOW 
JSR CR 


DS 


LDA #$00 
STA FINFLG 
STA SECT 
LDA #$11 
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27 


28 


118 STA IBTRK 178 
119 LDA #$0F 179 
120 STA IBSECT 180 
121 LDA #$20. 181 
122 STA IBBUFP+1 182 
123 LDA #$1 ; LECTURE 183 
124 STA IBCMD 184 
125 LDA #ORIG-1 185 
126 STA $CE 186 
127 LDA /ORIG-$100 187 
128 STA $CF 188 
129 ; 189 
130 3 190 
131 ;; DEBUT DE LECTURE 191 
232 = 192 
133 ; 193 
134 DEBUT JSR DOS 194 
135 INC $CF 195 
136 LDA #$0 196 
137 TAY 197 
138 CMP ($CE),Y ; No PISTE=0 ? 198 
139 BNE SUITE 199 
140 INY 200 
141 CMP ($CE),Y ; No SECT=0? 201 
142 BNE SUITE 202 
143 LDA SECT : CALCUL 203 
144 CLC 204 
145 ADC #1 205 
146 ASL : NUMMAX 206 
147 ASL ;=(SECT+1) *7 207 
143 ASL ; (SECT+1) *8 208 
149 SEC 209 
150 SBC SECT 210 
151 STA NUMMAX 211 
152 DEC NUMMAX :NUMMAX = 212 
(SECT+1) *8-SECT-1 213 
153 JMP MENU 214 
154 SUITE LDY #S0 215 
155 LDA ($CE),Y ; No PISTE 216 
156 STA IBTRK 217 
157 INY 218 
158 LDA ($CE),Y ; No SECTEUR 219 
159 STA IBSECT 220 
160 INC IBBUFP+1 221 
161 INC SECT 222 
162 JMP DEBUT 223 
163 ; 224 
264 ja 225 
165 ;= = 226 
166 ;= MENU GENERAL = 227 
167 ;= = 228 
168 ; === 229 
169 ; 230 
170 MENU LDA CV 231 
171 STA CVANT 232 
172 LDA #0 233 
173 STA CH 234 
174 LDA #20 235 
175 STA CV 236 
176 STA S$22 237 
177 LDA #24 238 


A —— 


M1 


STA 
JSR 
LDA 
LDY 
JSR 


$23 
$FC58 
#MESS1 
/MESS1 
AFFICH 





L? 


E? 


M? 


SAUT 


REP1 
VIDOUT 
CR 

CR 


TABLE, X 
ADR 
TABLE+1,X 
ADR+1 
(ADR) 


; CHARGEMEN 


* LECTURE ? 


:EDITON ? 


:MODIF ? 


: ENREGIST? 


; TERMINER 


FINFLG 
#$FF 
OKFIN 
WINDOW 
$FC58 
CLOCHE 
CR 

CR 
#RECMSS 
/RECMSS 
AFFICH 
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Æ 2 


? 





239 DEC FINFLG 

240 JMP MENU 

24 3 

242 RECMSS HEX 26 

243 BLK "ERTSIGERNE SAP ZEVA'N SUOV : 
NOITNETTA" 

244 ; 

245 OKFIN LDX #S$00 : 256 BOUCLES 
246 PAGO LDA $7800,Xx 

247 STA $00,Xx 

248 DEX 

249 BNE PAGO 

290 

291 JSR $FC58 

252 LDA #MESSAG 

253 LDY /MESSAG 

254 JSR AFFICH 

255 JSR CLOCHE 

256 JSR CR 

257 

258 JMP $3D0 : RETOUR BASIC 
259 MESSO STR " : RUETCEL ED OREMUN" 

260: & 

261 MESSAG STR "RECNALER RUOP &@" 

202: ; 

263 MESS1 STR " : XIOHC ERTOV@ ENIMRE]T(! 
ERUTIRCEE]R! REIFIDO]M[ NOITIDIJE! 
ERUTCE]L{ TNEMEGRAE]CI[" 

264 ; 

265 ;======s=2 
266 ;= = 
267 ;= LECTURE DU BUFFER = 
268 ;= = 
269 ; === — 
270 : 

271 LECTUR LDA #MESS2 

272 LDY /MESS2 

243 JSR AFFICH 

274 REP2 LDX #$03 

275 LDA #LECTUR-1 

276 LDY /LECTUR 

723 À JSR SAISIE 

278 ; 

279 je —— 

280 ; 

281 LDA #0 

282 STA LECFLG 

283 TEST LDA C1 

284 CLC 

285 * ADC C2 

286 SEC 

287 SBC #$02 

288 STA NBSECT ; C1+C2-2 -> 
NOMBRE DE SECTEURS A LIRE 

289 LDA SECT 

290 CMP NBSECT 

291 BCS ONLIT 7? I < C1+C2-2 
292 j--——— 


293 ; DEPASSEMENT DU NOMBRE DE SECTEURS 
294 jm 
295 LDA CV 


296 CMP #20 
297 BCS M3 
DEJA POSITIONNEE 

298 LDA CV 

299 STA CVANT 
300 LDA #0 

301 STA CH 

302 LDA #20 
303 STA CV 

304 STA $22 
305 LDA #24 
306 STA $23 
307 JSR $FC58 
308 M3 JSR CLOCHE 
309 LDA #MESS3 
310 LDY /MESS3 
SIT JSR AFFICH 
312 LDA #0 

313 LDX SECT 
314 INX 

315 JSR LINPTR 
316 LDA #MESS3B 
377 LDY /MESS3B 
318 JSR AFFICHE 
319 JSR CR 

320 JSR CR 

321 JMP LECTUR 
322 ONLIT LDA LECFLG 
323 BNE ONLIT2 
324 JSR WINDOW 
325 DEC LECFLG 
326 ONLIT2 JSR CR 

327 DEC C1 

328 LECT2 LDA #00 
329 STA F 

330 STA FLAG2 
331 NUMERO LDA C1 

332 ASL 

333 ASL 

334 ASL 

335 SEC 

336 SBC C1 

337 CLC 

338 ADC #01 
339 CLC 

340 ADC F 

341 STA NUMFIC 
342 PRTITL TAX 

343 LDA #0 

344 JSR LINPTR 
345 LDX #2 

346 JSR PRBL2 
347 LDA #$4 
348 STA CH 

349 LDA /ORIG 
350 CLC 

351 ADC C1 

352 STA $CF 
353 LDA F 

354 ASL 

355 ASL 





; FENETRE MENU 


; AFFICHE SECT 


:C1=C1-1 


:F=0 
;O=LIRE 1 SECT 


; A->C*7 


; A->F+1+7%C 


: AFF X=2 SPACE 
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30 


356 ASL 
3517 ASL 
358 ASL 
359 CLC 
360 ADC 
361 ADC 
362 ADC 
363 ADC 
364 STA 
365 LDX 
366 LDA 
367 BEQ 
368 CMP 
369 BEQ 
370 CMP 
3 BNE 
372 LDA 
373 BNE 
374 .PRESEN LDA 
345 BNE 
376 MOINS LDA 
374 JSR 
378 INC 
379 LDX 
380 BCLA LDY 
381 LDA 
382 JSR 
383 INC 
384 DEX 
385 TXA 
386 BNE 
387 LDA 
388 BEQ 
389 RTS 
390 CONT LDA 
391 JSR 
392 INC 
393 LDA 
394 CMP 
395 BNE 
396 INC 
397 LDA 
398 CMP 
399 BCC 
400 JMP 
401 JSR 
402 LDA 
403 JSR 
404 CMP 
405 BNE 
406 INC 
407 LDA 
408 STA 
409 JMP 
410 JMP 
ALL, » 


412 MESS2 STR 
TE RUETCES rel 
413 ; 

414 MESS3 STR 
415 MESS3B STR 


;: F*32 


F 

F 

F 7 F*35 
#ORIG+9 

$CE 

#500 

($CE, X) 

MOINS 

#SFF 

MOINS 

#$530 

PRESEN 

#"8&" COMMENTAIRE 
MOINS+2 ; JMP 

LL Ed ; FICH PRESENT 
MOINS+2 

EE ; FICH EFFACE 
VIDOUT 

CH 

#S$1E ; 30 BOUCLES 
#$03 

($CE),Y 

VIDOUT 

$CE 


RD 


FLAG2 O=LIRE 1 SECT 


; SINON, ->MODIF 
#$8D ; C-R 
CTRL.S ;: PAUSE 
E : F=F+1 


#$07 
NUMERO 
C1 ; C=C+1 
NBSECT 
C1 

*+5 
LECT2 
CR 
#$A0 
KEYIN 
gun 
+11 
Ci 
#$01 
C2 
TEST 
MENU 


“: ERIL À SRUETCES ED ERBMON 
UD oN" 


“ TNEMELUES" 
"SRUETCES " 


M4 LDA #MESS4 
LDY /MESS4 
JSR AFFICH 


JSR VIDOUT 


CMP #"D" 
BEQ DEPLAC 
CMP #"E" 
BEQ ECHNGE 
JSR BELL 
JMP EDIT 


DEPLAC JSR CR 


JSR CR 
M5 LDA #MESSS 
LDY /MESSS 
JSR AFFICH 
; SAISIE DE LA REPONSE 


REP5 LDX #$05 
LDA #M5-1 
LDY /M5 
JSR SAISIE 


LDA C2 
CMP C1 
BCS OVER? 
TAX 

LDA C1 
STA C2 





Pom's n° 20 


SEC 
SBC C1 
STA BOUCLE 


: TESTE SI DEPASSEMENT DE NUMMAX 
: PAR LA ZONE DE RECEPTION 


CLC 

BOUCLE 

NUMMAX 

MONTE ? ; 
MONTE ? ; 
CLOCHE 

JMP M5 


=NUMMAX 
<NUMMAX 


MONTE? WINDOW 

LDA C1 

NBSECT 

MONTEE ? C1>03 
LDA C2 
STA C1 


NBSECT 


; C1=C2 


C3=C3+BOUCLE 
Cc2=C3 


BOUCLE ; 
STA C2 4 
BOUCLE 

BCLS5 

NBSECT 

MONO Ê 


MONO 


MONTEE 


ECHANGE 
M6 LDA #MESS6 


AFFICH 


SAISIE 
#$01 ; 
BOUCLE 
WINDOW 


1 BOUCLE 
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538 ; 
539 BCL5 LDA C1 

540 JSR ADRESS 
541 LDA #$00 
542 STA A4L 
543 LDA #$46 
544 STA A4H 
545 LDY #$00 
546 JSR MOVE 
547 LDA DESTL 
548 STA A4L 
549 LDA DESTH 
550 STA A4H 
551 LDA C2 

552 JSR ADRESS 
553 LDY #$00 
554 JSR MOVE 
555 LDA #$00 
556 STA A1L 
557 LDA #$46 
558 STA A1lH 
559 LDA #$22 
560 STA A2L 
561 LDA #$46 
562 STA A2H 
563 LDA DESTL 
564 STA A4L 
565 LDA DESTH 
566 STA A4H 
567 LDY #$00 
568 JSR MOVE 
569 LDA C1 

570 CMP C2 

571 BCS POS 
572 DEC C1 

573 DEC C2 

574 JMP POS+4 
575 POS INC C1 

576 INC C2 

577 DEC BOUCLE 
578 BNE BCLS5 
579 JSR CR 

580 INC C 

581 LDA C 

582 STA C1 

583 LDA #$01 
584 STA C2 

585 JMP TEST : VERS LECTURE 
586 MESS4 STR " : XIOHC ERTOV@@ENOZ ENU'D 
TNEMECALPED - JD[ GEGNAHCE - JE[" 
587 ; 

588 ; 

589 MESS5 STR ": NOITANITSED AL ED .PUS 


ETIMIL AL TERECALPED À ENOZ AL ED SETIMIL SEL 
ZERTNE" 

590 ; 

29L > 

592 MESS6 STR ": 
SEL ZERTNE" 


RECALPED À REIHCIF ED .oN 
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595 ;= = 655 LDY /MESS9 


596 ;= MODIFICATION DES TITRES = 656 JSR AFFICH 
597 ;= = 657 LDA #" " 
598 ; === — 658 JSR KEYIN 
599 : 659 CMP #"O" 
600 MODIF LDA #MESS7 660 BEQ OUI? ;PEUT-ON EFF 
601 LDY /MESS7 661 CMP #"o" 
602 JSR AFFICH 662 BEQ OUI? : IDEM 
603 ; 663 LDA #"N" 
ÉD ee 664 JSR VIDOUT 
605 ; SAISIE DE LA REPONSE 665 LDA #"O" : ON NE VEUT 
COGR nr PAS EFFACER 
607 ; 666 JSR VIDOUT 
608 LDX #01 667 LDA #"N" 
609 LDA #MODIF-1 668 JSR VIDOUT 
610 LDY /MODIF 669 JSR CR 
611 JSR SAISIE 670 JMP FINI ; VERS LECTURE 
612 JSR WINDOW 671 ; 
613 ; 672 OUI?  LDA #"O" 
GLA sms 673 JSR VIDOUT 
615 ; CALCUL D'ADRESSE 674 LDA #"U" 
616 ;————— 675 JSR VIDOUT 
617 ; 676 LDA #"I" 
618 LDA C1 677 JSR VIDOUT 
619 JSR ADRESS : DEBUT EN 678 JSR CR 
DESTL, DESTH 679 LDY #$00 
620 JSR CR 680 LDA (DESTL),Y 
621 :; 681 BEQ *+6 ; A=0 
622 sms csun----c-crmmmssss— 682 CMP #$23 
623 ; AFFICHAGE DU TITRE À MODIFIER 683 BCC NON ARS 5 
US EEE EEE 684 LDA #$SFF ;FICH SUPPRIME 
625 ; 685 STA (DESTL),Y 
626 M8 LDA #MESS8 686 LDY #$03 
627 LDY /MESS8 687 BNE BCL10-2 ; JMP 
628 JSR AFFICH ; NOUVEAU TITRE 688 NON JSR CR 
629 JSR CR 689 JSR CR 
630 ; 690 M10 JSR CLOCHE 
631 LDA #$FF 691 LDA #MESS10 
632 STA FLAG2 : SFF=1 TITRE 692 . LDY /MESS10 
633 LDA C1 693 JSR AFFICH ; ON NE PEUT 
634 STA NUMFIC ; No DU TITRE PAS EFFACER 
635 LDA C 694 JSR CR 
636 STA C1 ; No SECTEUR 695 JMP MENU 
637 LDA NUMFIC 696 BCL7 CPX #$21 2X<33, ? 
638 JSR PRTITL 697 BEC x<33 
639 ; 698 LDX #$20 : X=32 
640 ; 699 x<33  STX C1 : SAUVE X 
641 5-2 700 ; 
642 ; SAISIE DE LA CHAINE DOL FER RES ESEREe = 
GAS jp mssmmnmenme-si/{" 702 ;ON REMPLACE UN TITRE PAR UN COMMENTAIRE? 
644 ; 703 3 
645 LDA #6 704 ; 
646 STA CH 705 LDY #$00 
647 LDA #$80 ; CARACT NUL 706 LDA (AlL),Y 
648 JSR GETLIN 707 BEQ COMMEN 
649 ; 708 CMP #$30 ; COMMENTAIRE ? 
650 ; TEST 709 BEQ COMMEN 
651 710 CMP #S$SFF :FICH EFFACE ? 
652 TXA 711 BEQ COMMEN 
653 BNE BCL7 ; NON VIDE 712 BNE TITRE 
654 M9 LDA #MESS9 713 COMMEN LDA #$30 
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OO 


714 STA (AlL),Y Ê CODE 
POUR FICHIER SUPPRIME MAIS APPARAISSANT LORS 
D'UN 'CATALOG' 

LES 

716 TYA 

7 LDY #$21 ; MISE A 

718 STA (A1L),Y ; ZERO DU 

719 INY ;: NOMBRE DE 
720 STA (AlL),Y ; SECTEURS 
721 LDY #2 

722 STA (AlL),Y ;: COD FICH TEXT 
285 à 

T24 je 

HAS $ TRANSFERT IN -> TITRE 
726; 

127 $ 

728 TITRE LDY #$03 

729 LDX #$00 

730 BCL9 LDA IN,X 

V3 STA (AlL),Y 

732 INX 

733 INY 

734 CPX C1 

735 BCC BCL9. s «X<C1 

436. ; 

TT 3 

738 ; COMPLETE LE TITRE ÀVEC 

739 ; DES BLANCS ( MAX. 30 CARACTERES) 

140 ÿ---- 

JaT 

742 LDA #" " 

743 BCL10 CPY #$21 

744 BCS FINI ;: Y>=30 

745 STA (A1L),Y 

746 INY 

747 BNE BCL10 : JMP 

748 FINI INC C 

749 LDA C 

750 STA C1 

751 LDA #$01 

752 STA C2 

153 JSR CR 

754 JMP TEST : VERS LECTURE 
ADD: à 

156: $ 

757 MESS7 STR ": REIFIDOM A ERTIT UD OREMUN" 
758 ; 

759 : 

TOOTMESSSr ISTRIL taie ER le. nn. E 
761. 

62 : 

763 MESS9 STR ": N/O ? ERTIT EC RECAFFE 
SUOV-ZELUOV" 

764 ; 

765; 

766 MESS10 HEX 21 ; LONG MESSAGE 
767 BLK “EMIRPPUS NON REIHCIF : 
ELBISSOPMI" 


BCL11 


’ 


MESS11 


. 
’ 


MESS12 


r 


MESS13 STR 


#502 Ê 
IBCMD 
SECT 
BOUCLE 
#$11 
IBTRK 
#$0F 
IBSECT 
#$20 
IBBUFP+1 
ADR+1 

#0 
IBBUFP 
ADR 

DOS 
BOUCLE 
BOUCLE 
#S$SFF 

END 
IBBUFP+1 
#1 

(ADR) ,Y 
IBTRK 


ECRITURE 


PISTE $11 


; SECTEUR $F 


; BUFFER 


EN $2000 


:No PISTE 


(ADR) ,Y 
IBSECT 
ADR+1 
BCL11 


:No SECTEUR 


WINDOW 
$SFC58 
CR 
#MESS13 
/MESS13 
AFFICH 
CR 

#$FF 
FINFLG 
MENU 


oc 
" .ON RUETCEL" 


19 


)N/0/2/1( ZEMRIFNOC - " 


"ENIMRET TNEMERTSIGERNE" 
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831 ;= - 891 LDA ADR+1 
832 ;= SOUS-PROGRAMMES = 892 PHA ;EMPIL NOUVEL 
833 ;= = 893 LDA ADR 
834 ;======-=------==2===2===222=2=z=2==== 894 PHA ; ADRESS RET 
835 ; 895 JSR BELL 
836 ; 896 RTS 
837 $----mrmmmmmmmmmmm—— 897 ; 
838 ; AFFICHAGE DU MESSAGE BIG FÉRSSRSSS SRE RSR RSR 
LE fe EEE PRES 899 ; TRAITEMENT DE LA REPONSE 
840 ; 900 = 
841 AFFICH STA ADR 901 ; 
842 STY ADR+1 902 TRAITE LDY #$00 
843 LDY #$00 903 LDX #$01 
844 LDA (ADR),Y 904 LDA FLAG2 ;PAS DE 
845 TAX - ; LONG MESSAGE  VIRGULE A TESTER 
846 MESS  TAY 905 BEQ T2 
847 LDA (ADR),Y 906 LOX #77" 
848 CMP #"@" ; CODE POUR 907 STA $FF 
R:C: 908 BCL6 LDA IN,X 4 
849 BEQ R.C. 909 CMP S$SFF ; VIRGUL OU CR 
850 VIDEO JSR VIDOUT 910 BNE T1 
851 DEX 911 DEX ; REPONSE 
852 TXA 912 LDA IN,X ; SUR 1 OCTET 
853 BNE MESS 913 AND #SO0F ; A=A-$B0 
854 RTS 914 JMP STORE 
855 R.C.  JSR CR 915 TL INX 
856 BNE VIDEO+3 ; JMP 916 LDA IN,X 
857 ; 917 CMP SFF ; VIRGUL OU CR 
dHQ) Sens sn nn 918 BEQ DEUX QUE 54 2 
859 ; SAISIE DES REPONSES OCTETS A TRAITER 
CAR Eee 919 JSR OCT2 : NON : 3 
861 ; 920 STAR CL,Y 
862 SAISIE STA ADR 921 DEX 
863 STY ADR+1 922 DEX 
864 STX FLAG ;: NB MIN OCTET 923 LDA IN,X 
865 LDA #" " 924 CMP #$B0 ; =0 ? 
866 JSR GETLIN ; SAISIE 925 BEQ NXT ; OUI -> SUITE 
867 CPX #$00 926 CMP #$B1 ? =1 ? 
868 BNE SAISI2 ; VERS MENU 927 BNE DEUX? 
869 JMP M1-3 ; SANS MODIF 928 CLC 
870 SAISI2 CPX FLAG 929 LDA C1,Y 
871 BCC ERREUR 930 ADC #$64 ; AJOUTE 100 
872 DEC FLAG 931 INX 
873 LSR FLAG ; NB VIRGULES 932 INX 
874 LDA FLAG 933 JMP STORE 
875 STA FLAG2 934 DEUX  DEX 
876 BCL1  LDA IN-1,X 935 LDA IN,X 
877 CMP #"," ; VIRGULE ? 936 JSR OCT2 
878 BNE *+4 937 JMP STORE 
879 DEC FLAG 938 DEUX? CMP #$B2 5; =2 ? 
880 DEX 939 BNE ERREUR ; DEPASSEMENT 
881 BNE BCL1 940 INX 
882 LDA FLAG 941 INX 
883 BEQ TRAITE 942 DA CL,Y 
884 ; 943 CLC 
885 ;----— 944 ADC #$C8 ; AJOUTE 200 
886 ; TRAITEMENT DES ERREURS 945 BCS ERREUR ; > 255 
887; 946 STORE BEQ ERREUR ENTREE = 0 
888 ; 947 CMP NUMMAX 
889 ERREUR PLA ;DEPIL ANCIENN 948 BEQ STORE2 
890 PLA ; ADRESS RETOUR 949 BCS ERREUR ; ENTREE >NUMMAX 
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950 
951 
952 
953 
954 
955 


956 
957 
958 
9359 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 


972 
933 
974 
975 
976 
977 
978 


STORE2 STA C1,Y 
NXT INX 

INX 

INX 

INY 

DEC FLAG2 


BEQ T2 
LDA FLAG2 
CMP #$FF 
BNE BCL6 
LDA #0 
STA FINFLG 
RTS 

T2 LDA #$8D 
STA $FF 
BNE BCL6 


OCT2 AND #$0F 
STA C1,Y 
DEX 
LDA IN,X 


’ 


SI 0, PLUS 
DE VIRGULE A 
TESTER 


; DRAPEAU ZERO 


ON TESTE CR 


JMP 


A: A-$B0 


979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 


Editeur Plein Ecran 


Le Pacha 


DIVID 


NEXT 


SBC #$01 

STA NUMFIC : N-1 
LDA #$00 

STA NUMFIC+1 

LDX #$08 

LDA NUMFIC 

STA C 

LDA NUMFIC+1 

DIVISION 
PAR 7 
DE 

: NUMFIC 


…. ve ve 


INC C ; C->No SECT 


Apple ][+, //e, //c 


. Listez vos programmes Basic en avant et en arrière. 


- Modifiez, insérez, effacez des caractères en plein écran 
sans relire les lignes. 

. Recherchez toute chaîne de caractères. 

. Choisissez vous-même les codes de contrôle d'EPE. 

+ Modifiez EPE : le fichier source est sur la disquette. 


AND #$0F 
STA IN,X 
ASL 
ASL 
CLC 
ADC IN,X 
ASL 
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. e Se 


150,00 F TTC franco 
(bon de commande page 74) 


A: A-S$BO 


A*4 
C=0 
A*4+A 
A*10 


1003 
1004 
1005 
1006 
1007 
1008 
1009 





BNE DIVID 

STA F ;: F->No TITRE 
LDA /ORIG 

CLC 

ADC C 

STA A1lH 

STA A2H 











1010 STA DESTH RETOUR PUISQUE PAS DE RTS 

1011 LDA F 1071 JMP MENU 

1012 ASL 1072 OK RTS 

1013 ASL 1073 ; 

1014 ASL 1074 ;=========sssssssssssssssssssssss 

1015 ASL 1075 ;= = 

1016 ASL 1076 ;= TABLE 1OB ET CARACTERISTIQUES = 

1017 CLC 1077 ;= - 

1018 ADC F 1078 ;====mmmmmmmmmnm nn 
1019 ADC F 1079 ; 

1020 ADC F 1080 DOS  LDA /IOB 

1021 ADC #ORIG+9 1081 LDY #I0B 

1022 STA AlL 1082 JSR RWTS 

1023 STA DESTL 1083 RTS 

1024 CLC 1084 ; 

1025 ADC #$22 1085 I0B  HEX 0160 

1026 STA A2L 1086 IBDRVN HEX O1 

1027 RTS 1087 HEX 00 

1028 ; 1088 IBTRK HEX 11 

1029 ;--- mme 1089 IBSECT HEX OF 

1030 ; CONFIRMATION CHOIX 1090 ADR CARACT 

1031 5-----nnmnnns mm 1091 IBBUFP HEX 0020 

1032 ; 1092 HEX 0000 

1033 OK?  JSR CLOCHE 1093 IBCMD HEX O1 

1034 LDA #MESS11 1094 HEX 00006001 

1035 LDY /MESS11 1095 ; 

1036 JSR AFFICH 1096 CARACT HEX 0001EFD8 

1037 ; 1097 ; 

1038 LDA IBDRVN 1098 3; 

1039 ORA #$30 ; A=A+$30 1099 ; POSITIONNE LA FENETRE TEXTE 

1040 JSR VIDOUT 1100 ÿ--— 

1041 ; 1101 ; 

1042 LDA #MESS12 1102 WINDOW LDA #0 

1043 LDY /MESS12 1103 STA $22 

1044 JSR AFFICH 1104 LDA #$14 

1045 ;; 1105 STA $23 

1046 LDA #" " 1106 LDA CVANT 

1047 JSR KEYIN 1107 STA CV 

1048 PHA 1108 RTS 

1049 JSR VIDOUT 1109 ; 

1050 PLA ARAO PSS 

1051 CMP #"o" 1111 ; SON DE CLOCHE 

1052 BEQ OK 1112 = 

1053 CMP #"o" 1113 CLOCHE LDY #$CO 

1054 BEQ OK 1114 JSR BELL2+3 

1055 CMP #"1" 1115 LDA #$20 

1056 BNE LECT2? 1116 LDY #$c0 

1057 AND #$FF 1117 JSR BELL2 

1058 STA IBDRVN 1118 BELL LDA #$20 

1059 RTS 1119 LDY #$Cc0 

1060 LECT2? CMP #"2" 1120 JSR BELL2 

1061 BNE *+8 1121 RTS 

1062 AND #$FF 1122 ; 

1063 STA IBDRVN 1123 TEMPO LDX #0 

1064 RTS 1124 BCLTEM DEX 

1065 LDA #$00 1125 BNE BCLTEM 

1066 STA CH 1126 RTS 

1067 DEC CV ds A fm 

1068 JSR CLREOL 1128 LENGTH EQU *-BEGIN 

1069 PLA ;DEPILE 2 OCT 1129 PAU 

1070 PLA ;DE ADRESSE DE 1130 END 
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Deux utilitaires et un programme TS 
de gestion au sommaire de la Pom's 20 : 


+ Screen Maker, l'équivalent en assembleur du programme de 
personnalisation des disquettes Mac paru dans la revue n°16 : 
Transformer un document MacPaint en une image de Boot. 


+ Des messages en boîtes, un utilitaire dont le source est 
abondamment commenté, pour la gestion de boîtes à dialogue. 


+ Un programme de gestion de comptes bancaires en Basic 
Microsoft doté des facilités propres au Mac. 


80,00 F TTC franco, Bon de commande page 74 


{Disquette Macintosh) 
14/15/16 


| 14, 13 16 de Pons à “Ed ! 

à et ‘Editeur’, : = 

À ‘Mac-Apple Jl, Paint-Basic', et Disquette Macintosh 
‘autres "ammes 

Tr numéro 19 


f à Prey sers 
4 + Polices ‘Los les”, ‘Caïro’ 1 ; 
î ç » € CR | + Nouvelle version de Mac Write 
Mos Esley’, “5 spa (4.5), version “Di qui 
* programme ‘L ocalizer’, permet de ï ers 
pos “Copie de disque’. même sur un Fntoh 128 Ko, 
+ MacPaint 1.5 qui ne perd plus là 
: rs lacements, 
et de burea 
15090 F TTC france be y Frs . 


ur" ruse 


8090 F TTC france 


Disquette Macintosh 


(Disquette Macintosh 


miens pers Ë 


que la Ë 
1 ‘System Update’ pour implanter |: 
les : ne Finder et qu sur | me nn ] 


os disquettes 
ur — Demo” = _. chargement rapide 


© 
CA 
S 
> 
= 
© 
S 
A 
S 
© 
à. 
$ 
$S 
S 
SS 
SX 
Fe 
TS 
G 
TS 
Ÿ 
S 
È 
Pas 
S 
CR 
Sy 
Sy 
T 
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Puisque nous ne 
VOUS aviez besoin, nous 


en 







. Apple et le logo Apple sont des marques déposées d'Apple Computer, Inc. 


f Une des plus grandes bibliothèques de logici 
| EE | programmes compatibles avec l'Apple Ile : je 
Ë [u | gestion de base de données, analyse financi 





nm ST RE 


VE aus Jar Ja Ja b | 





Un clavier 63 touches type AZERTY comprenant une accentuation complète et des 
caractères majuscules/minuscules intégrés. 






Connecteur Connecteur 


Connecteur Connecteur Connecteur pour le lecteur Connecteur pour 
pour la souris. pour le modem. di 


pour TV. couleur. pour le moniteur vidéo. de disquette externe. imprimante ou traceur. 





Seedrin S.A.RL., Avenue de l'Océanie - Z.A. de Courtabœuf B.P 131, 91944 Les Ulis Cedex. 


CLM.& BBDO. 


savions pas de quoi 
vous avons tout donné. 















| Budget Familial Apple Writer Apple Works Omnis II Les Oursons malins 

s_ au monde; 16.000 Voici 8 exemples de ce que vous pouvez afficher sur votre 

À traitement de texte, écran. 8 parmi 16.000 ! à vous de découvrir les autres. 
planification. Lorsque vous aurez essayé l'Apple IIc vous ne regretterez pas 


notre générosité. 





se présente l'Apple Ilc relié à 
déhniion et à 4 


on et à la souris. Ses connexions directes vous permettent d’utiliser 

toutes les fonctions dont vous avez besoin : imprimante, modem... 

| avons donné autant de place, autant de beauté, 
(128 Ko), autant de possibilités 
c'est que cela 











l'actualité 

les bancs d'essai 

les guides d'achat 
le dossier 

les programmes 


ORDINATEUR 
INDIVIDUEL 
















Len Css: EXO 


LES SECRETS DU LOGICIEL RÉUSSI 
DOSSIER. 0 ORDINATEURS 
en PLUS DE 20 ROMPARATIES PEN 


DES IDEES EN 


Lo msn mirntuburn) 


LA RÉFÉRENCE EN MICRO-INFORMATIQUE 











MICRAL 30 : 

} AU BANC D'ESSAI 

| GEM : TRANSFORMEZ 
VOTRE IBM EN MACINTOSH 


APPLEWORES : UN PETIT 
INTÉGRÉ ASTUCIEUX 





A L'ORDINATEUR INDIVIDUEL, les rédacteurs, les conseillers techniques, les correspondants à 
l'étranger, l’équipe entière se mobilise pour vous fournir tous les mois une information 
complète et de qualité. Le monde de la micro bouge : L'O.L. teste pour vous les micros et 
logiciels qui apparaissent sur le marché. Il vous dit lesquels choisir et pourquoi. Vous êtes déjà 
équipé et vous souhaitez tirer le maximum de votre machine ? Les spécialistes de L'O.L. vous livrent 
conseils, programmes inédits et astuces d'utilisation. Lisez chaque mois L'ORDINATEUR INDIVIDUEL. 
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Gérard Michel 


ette petite routine vous 

permettra d'afficher 

facilement les messages 

de vos programmes 
Basic sous la forme de ces 
“boîtes à dialogue” dont le 
Macintosh raffole. 


Le principe d'utilisation en est 
simple, puisque les seules 
données à fournir sont : 


* les dimensions de la boîte, via 
l'indication du point 
supérieur gauche et du point 
inférieur droit du rectangle 
dans lequel elle s'inscrira 
(coordonnées de ces deux 
points par rapport au coin 
supérieur gauche de la fenêtre 
d'affichage du Basic) ; 

+ les dimensions du rectangle 
dans lequel apparaîtra le texte 
du message sur une ligne 
(coordonnées des deux points 
significatifs calculées cette fois 
par rapport au Coin supérieur 
gauche de la boîte elle-même) ; 


* les dimensions du "pseudo- 
bouton” de contrôle (coor- 
données toujours indiquées par 
rapport à la boîte). Ce bouton 
contiendra le message standard 
"Return S.V.P." ; 


+ l'adresse de la variable chaîne 
de caractères où est stocké le 
texte du message. 


Des messages 
en boîtes 


Mise en œuvre 


Le code de la routine en 
langage-machine est implanté 
dans un tableau de variables 
entières (CO%(274) dans notre 
programme d'exemple). 

En fait, les premiers éléments de 
ce tableau contiennent les 
paramètres de la boîte, du 
rectangle de texte et du 
bouton-contrôle : 


+ CO%(0) à COZX(3) : coor- 
données des deux points 
définissant les dimensions de 
la boîte ; 

+ CO%(4) à COZ(7) : idem pour 
le rectangle de texte ; 

+ COZ(8) à COZ(11) : idem 
pour les dimensions du 
"bouton" ; 

+ CO%(12) à COX%(19) : défini- 
tion du texte contenu dans le 
"bouton". 

La zone CO%(20) à CO%(190) 

sert quant à elle de tampon pour 

les routines système qui gèrent 
les fenêtres de dialogue et les 
événements qui s'y produisent. 

Le code de la routine commence 

donc en CO%(191). 


Appel de la routine 
Il résulte des instructions : 

- A! VARPTR(V$) avec la 
nouvelle version du Basic 
Microsoft 


Source de la routine 


0000 .Trap 
0000 .Trap 
0000 .Trap 
0000 .Trap 
0000 .Trap 
0000 .Trap 
0000 .Trap 
0000 Trap 
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_FrontWindow 
_NewDialog 
_SetPort 
_NewControl 
_TextBox 
_ModalDialog 
_CloseDialog 
_SelectWindow 


- ou CALL A! (VARPTR(VS)) 

avec l'ancienne version 

où : 

+ A! = VARPTR(CO%(191)) = 
adresse de début du code de la 
routine ; 

+ V$ = chaîne de caractères 
contenant le message à afficher 
(au sujet du mode de stockage 
des variables par le Basic et 
des descripteurs de chaînes, 
reportez-vous aux cahiers Mac 
des précédents numéros de 
Pom's). 


La routine dessine la boîte, y 
place le texte du message, dessine 
le bouton-contrôle et attend un 
événement, le seul qui puisse 
amener la disparition de la boîte et 
le retour au Basic étant la frappe 
de la touche "RETURN". 


Vous pouvez bien sûr modifier 
les variables utilisées et leur 
contenu, ainsi que les positions et 
dimensions des différents 
éléments du "dialogue", avant 
chaque appel, afin de les adapter 
aux besoins. 


Les commentaires qui accom- 
pagnent la liste du programme 
source en assembleur vous 
permettront de suivre le 
déroulement des opérations, et 
notamment le nom et le rôle des 
différentes routines système 


utilisées. é 


$A924 Routines utilisées par 
SA97D le programme. 

SA873 Sur un 512 Ko, la défi- 
$A954 nition des 'Traps' peut 
$SA9ICE être remplacée par : 
$A991 INCLUDE MacTraps.D 
$A982 

$A91F 


41 
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0064 0064 OOBE 0190 Rectangle DC 


000F 0014 0024 012C T2 
003C 0082 0050 0122 TO 
0E 52 65 74 75 72 6E 20 53 2E 56 2E 50 2E 20 00 


XXXX 
0000 


4E56 
226E 
1629 
0283 
2829 
0284 


42A7 

A924 

265F 
42A7 

487A 
487A 
42A7 

1F3C 
3F3C 
2F3C 
1F3C 
2F3C 
2F3C 
A97D 
2E17 
A873 

42A7 
2F07 
487A 
487A 
1F3C 
2F3C 
2F3C 
2F3C 
A954 

201F 


2F04 
2F03 
487A 
3F3C 
A9CE 


42A7 
487A 
A991 
303A 
0C40 
66 EE 
2F07 
A982 
2F0B 
A91F 
2F0B 
A873 
4E5E 
4E75 


XXXX XXXX 


0000 
0008 
0001 
0000 
0001 
OOFF FFFF 


OOFF 


FE84 
FE58 


FFFF 
0001 
FFFF FFFF 
0000 
0000 
0000 


0000 
0000 


FE3A 
FE3E 
FFFF 
0000 0000 
0000 0000 
0000 0000 


FEOC 
0001 


FF74 


FF6E 
0001 


Return 
Dstorage 
ItemHit 
Texte 
Long 


Dialogue 


Attente 


100,100,190,400 
DC 15,20,36,300 

DC 60,130,80,290 
DC.B 14,'Return S.V.P. ",0 
DCB $AA, 0 

DC 0 

EQU D4 

EQU D3 


LINK 

MOVEA.L 
MOVE .B 
ANDI.L 
MOVE .L 
ANDI.L 


A6, #0 

8(A6),A1 
1(A1),Long 
#$000000FF, Long 
1(A1),Texte 
#SOOFFFFFF, Texte 


CLR.L -(SP) 
_FrontWindow 
MOVE.L (SP)+,A3 
CLR.L -(SP) 

PEA Dstorage 
PEA Rectangle 
CLR.L — (SP) 
MOVE.B #-1,-(SP) 
MOVE #1,-(SP) 
MOVE.L #-1,-(SP) 
MOVE.B #0,-(SP) 
MOVE.L #0,-(SP) 
MOVE.L #0,-(SP) 
_NewDialog 
MOVE.L (SP),D7 


_SetPort 


CLR.L -(SP) 
MOVE.L D7,-(SP) 
PEA TO 

PEA Return 
MOVE.B #-1,-(SP) 
MOVE.L #0,-(SP) 
MOVE.L #0,-(SP) 
MOVE.L #0,-(SP) 
_NewControl 
MOVE.L (SP)+,D0 


MOVE.L Texte,-(SP) 
MOVE.L Long,-(SP) 
PEA T2 

MOVE #1,-(SP) 
_TextBox 


CLR.L — (SP) 
PEA ItemHit 
_ModalDialog 
MOVE ItemHit,DO 
CMPI #1,D0 
BNE Attente 
MOVE.L D7,-(SP) 
_CloseDialog 
MOVE.L A3,-(SP) 
_SelectWindow 
MOVE.L A3,-(SP) 
_SetPort 

UNLK A6 

RTS 


Se 


Se se ve 


… 


. 


Se Se Se se Se 


… 


. LT 


. 


Du 


. 


D . 


. 


Boîte 

Rectangle pour texte z [2] 
Rectangle pour contrôl Ps 
LES 
contenu du contrôle " 
Tampon pour boîte à dialogue 
Stockage événement dialogue 


adresse descripteur de chaîne 
longueur de la chaîne 
convertie en un long-mot 


adresse de la chaîne dans D4 


pointeur sur fenêtre active 
qui est stocké dans A3 


pas de titre 

-1 = $FF = VRAI => Visible 
type fenêtre=boîte à dialogue 
la fenêtre vient sur le dessus 
0 = FAUX = pas de "GoAway" 

les autres param. sont nuls 


ouvre la boîte à dialogue 
met son pointeur dans D7 
boîte = port d'entrée/sortie 
précise utilisation boîte 
contrôle visible 

autres param. à 0, dont type 


contrôle (0=Return pour nous) 


ouvre le "bouton" contrôle 
enlève son pointeur de la pile 


justification = centré 
"dessine" texte dans rect. T2 


attend un événement dans boîte 


si code événement = 
sinon, 


1=> Return 
attendre encore 


referme la boîte 


fenêtre initiale en activité 


et port d'entrée/sortie 
retour au Basic 
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Programme de 


démonstration 


DEFINT A-Z 

DIM CO(274) 

" Les deux premières lignes donnent les paramètres 
"de la boîte, du rectangle de texte et du rectangle de 
"contrôle, ainsi que le contenu de ce dernier 

DATA 100,100,190,400,15,20,36,300,60,130,80 
DATA 290,8&H0E52,8&H6574,&H7572,&H6E20 
DATA &H532E,&H562E,&H502E,&H2000 

" Stockage de "l'événement dans la boîte" 

DATA 0 

" Code de la routine 

DATA &H4E56,0,&H226E,8,&H1629,1,&H0283,0 
DATA &HFF,&H2829,1,8&H0284,&HFF,&HFFFF 
DATA &H42A7,&HA924,&H265F,&H42A7,&H487A 
DATA &HFE84,&H487A,&HFE58,&H42A7,&H1F3C 
DATA &HFFFF,&H3F3C,1,&H2F3C,&HFFFF 

DATA &HFFFF,&H1F3C,0,&H2F3C,0,0,&H2F3C,0 
DATA 0,&HA97D,&H2E17,&HA873,&H42A7 
DATA &H2F07,8&H487A,&HFE3A,&H487A 

DATA &HFE3E,&H1F3C,&HFFFF,&H2F3C,0,0 
DATA &H2F3C,0,0,&H2F3C,0,0,&HA954,8&H201F 
DATA &H2F04,8&H2F03,&H487A,&HFE0C,&H3F3C 
DATA 1,&HA9CE,&H42A7,&H487A,&HFF74 
DATA &HA991,&H303A,&HFF6E,&H0C40,1 

DATA &H6G6EE,&H2F07,&HA982,&H2F0B,&HA91F 
DATA &H2F0B,&HA873,&H4E5E,&H4E75 

FOR i=0 TO 19:READ CO(i):NEXT 

FOR i=20 TO 189:CO(i)=0:NEXT 

FOR i-190 TO 274:READ CO(i):NEXT:DE=191 
"DE=début du code exécutable 

M1$="Ceci est le premier message" 

M2$="Ceci est le deuxième message" 

M3$="Ceci est le troisième message" 
AI=VARPTR(CO(DE)):A! VARPTR(M1$) 


Gérer des DE ré 
étant contrôlée. 
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FOR i=0 TO 10 

PRINT "Texte de remplissage / "; 

PRINT "contrôle retour Basic 

NEXT:PRINT ZN 

PRINT "Entrez un texte ci-dessous S.V.P. 

INPUT Z$:PRINT:PRINT z$ 

AI=VARPTR(CO(DE)):A! VARPTR(M2$) 

FOR i=0 TO 10:PRINT “Texte de remplissage / "; 

PRINT "contrôle retour Basic 

NEXT:PRINT 

PRINT "Entrez un texte ci-dessous S.V.P. 

INPUT Z$:PRINT:PRINT z$ 

A!=VARPTR(CO(DE)):A! VARPTR(M3$) 

FOR i=0 TO 10 

PRINT "Texte de remplissage / "; 

PRINT "contrôle retour Basic 

NEXT:PRINT 

PRINT "Entrez un texte ci-dessous S.V.P. 

INPUT Z$:PRINT:PRINT z$ 

CO(0)=200:C0(1)=200:CO(2)=-290:CO(3)=500 

M1$="Encore un message en boîte 

A!=VARPTR(CO(DE)):A! VARPTR(M1$):PRINT 

PRINT "Encore une grande phrase à suivre 

INPUT z$ 

DATA 30,20,110,500,15,20,35,490 

FOR i=0 TO 7:READ CO():NEXT 

M2$="Ce dernier message marque la fin de notre test 
de présentation" 

AI=VARPTR(CO(DE)):A! VARPTR(M2$) 

CO(0)=250:CO(2)-320:CO(8)-45:CO(10)-65 

CLS:PRINT "Mais vous pouvez "; 

PRINT "en rentrer un vous-même... 

INPUT M3$:AI=VARPTR(CO(DE)) 

A! VARPTR(M3$) 

PRINT:PRINT M3$ 

Fin: 

GOTO Fin 


Gérard Michel 


Apple je 2 


Ces écrans, définis lors + la program - 
mation, "1 
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Gestion 


comptes bancaires 


fin d'éviter les 

longues séances de 

pointages, ratturages, 

surcharges à Ja 
réception des extraits de compte 
bancaire pour essayer de trouver 
un rapport entre le compte tenu 
chez soi et celui tenu par le 
banquier, voici un programme 
(presque) tout Basic qui peut 
rendre quelque service. 


Un mac 128 ou 512 Ko et la 
version décimale du Basic 
Microsoft version 2.00 sont 
nécessaires, le lecteur externe 
étant facultatif. 


Les principes 


Ce programme peut gérer 
plusieurs groupes compte 
banque/carte de crédit. Dans les 
notes qui suivent, nous ne 
considérerons qu'un groupe. 


Il est possible d'enregistrer les 
opérations suivantes : 


+ Dépenses par chèque ou 
prélèvement, 

+ Recettes sur le compte banque, 

+ Dépenses par carte de crédit, 

°_ Virements carte de crédit, 

+ Pointage. 


Chaque mois, le compte bancaire 
est débité des dépenses par carte 
bleue présentées par les 
bénéficiaires avant le 25 du mois 
précédent. Cette opération 
diminue la dette carte de crédit et 
diminue l'avoir du compte : c'est 
cette opération que nous 
nommons ici ‘virement carte de 
crédit’. 


Le pointage consiste à annoter les 
opérations enregistrées à la 
banque et chez soi. Ce pointage 
permet au programme lors de 


de 


l'édition des dernières opérations 
du compte de calculer le 
rapprochement, c'est à dire les 
soldes qui, théoriquement, 
apparaissent sur l'extrait de 
compte, tant sous la rubrique 
compte principal que sous carte 
de crédit. 


Accessoirement, le programme 
calcule une ventilation des 
dépenses par type : Maison, 
loisirs, vêtements, vacances, 
transport. Ces types de 
dépenses sont éditables : à chaque 
groupe de comptes est attachée 
une ventilation que vous définirez 
au moment de la création. Vous 
ne pourrez plus revenir dessus 
après validation. 


Ce programme, conçu pour un 
besoin particulier, ne gère pas les 
prélèvements automatiques, ne 
permet pas l'établissement de 
budget ou autre ; sa structure ne 
devrait toutefois pas poser de 
problème pour une person- 
nalisation éventuelle. 


Mode d'emploi 


Première opération, ini- 
tialisation d'un groupe compte/ 
carte : c'est l'option NOUVEAU 
du menu FICHIER. 

La date demandée devra être 
postérieure à 1984, le nom du 
fichier est quelconque, peut être 
sous la forme BNCI 007665. Le 
solde banque est positif ou 
négatif, c'est selon ! La dette 
carte bleue est par convention 
forcément positive. Ces sommes 
devront rester dans les limites 
— raisonnables — de la double 
précision. Les noms des dix 
rubriques de ventilation des 
dépenses seront choisies de façon 
définitive à ce moment. Il est 





J-L Bazanegue 
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préférable de mettre en numéro 1 
la rubrique la plus fréquente : elle 
vous est proposée par défaut lors 
des saisies. Toutes les zones étant 
complétées, la validation par 
‘OK vous est proposée. 

Le fichier est alors créé en 
quelques instants sur le disque 
avec le type ‘COMP' et en 
enregistrement 1 la ‘reprise de 
solde”. 

Par la suite, pour travailler sur le 
fichier, il faudra choisir OUVRIR 
dans le menu FICHIER : seuls 
les types 'COMP" s'afficheront. 


Saisie est le premier item du 
menu OPTION. Pour ne pas s'y 
perdre, la dernière opération est 
rappelée en haut de l'écran (avec 
la notation des comptables : Débit 
correspond à une recette, Crédit à 
une dépense). Les soldes 
n'apparaissent pas en mode 
saisie, le bouton pointage reste 
invalide. Pour enregistrer 
effectivement votre opération, 
vous aurez au minimum indiqué 
la date, le premier libellé et le 
montant. La date sera sous la 
forme de six ou huit caractères 
avec un séparateur quelconque : 
130985, 13/09/85, 13-09-85 sont 
des formes acceptées. 


Consultation, deuxième item 
d'OPTION rend actifs les 
boutons au bas de l'écran. 


Pointage, accessible depuis 
consultation, vous propose exclu- 
sivement les opérations non 
pointées ; celles-ci sont repérées 
dans un fichier spécial. Avant 
validation, vous pouvez modifier 
les libellés et le numéro 
d'opération. 


Imprimer est accessible dans 
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le menu FICHIER. Par défaut 
l'impression se fait entre la plus 
ancienne opération non enre- 
gistrée à la banque et la dernière 
ligne saisie. Au bas de l'état sont 
indiqués les soldes théoriques à la 
banque puis la ventilation des 
lignes de dépenses imprimées. Il 





Programme 
Comptes 


DEFINT A-Z 

DIM C1(7),TV(14),EF$(14),R(14,3),TAB 
L(100),VENT#(10):US$="H#####HARAA" 

DATA &h4E56,0,&h42A7,&h3F2E,&h8, 
&hA9B9,&h2057,&h2E90,&hA851,&h4 
E5E,&h4E75 

DATA 1,Fichiers,1,Nouveau,1,Ouvrir,0, 
Fermer,0,Imprimer, 1 Quitter 

‘Sup fenêtres 

DATA 0,Options,2,Saisie,1,Consultatio 
n,1,pointage 

DATA &h42A7,&hA924,&h2E1F,&h6706 
,&h2F07,&hA916,&h60F2,&h4E75 

‘Sup Menus 

DATA &h4E56,&h0000,&h3F2E,&h0008 
,&hA936,&hA937,&h4E5E,&h4E75 

‘coordonnées 

Coo: 

DATA 8,8,112,288,120,8,272,288 

DATA Date,Nom de fichier, Montant B 
anque,Dû Carte bleue 

Coo2: 

DATA 72,344,280,488,168,8,208,328 

DATA 216,144,232,328,240,144,256,32 
8 

CoosS: 

DATA 72,73,146,88,224,73,328,88,72, 
97,328,112,72,121,328,136,72,145,17 
6,160 

FOR i=0 TO 10:READ C2(I):NEXT 

FOR 1=0 TO 5:READ N,C$:MENU 4 
,,N,C$:NEXT 

FOR 1-0 TO 3:READ N,C$:MENU5, 
IN,C$:NEXT 

GOSUB Si:A! 

GOSUB S1:FOR 1-0 TO 4:A! I:NEX 
T 

ON MENU GOSUB MeO:MENU ON 

Bi: 


Me0: 

IF MENU(0)=5 THEN Met ELSE O 
N MENU(1) GOSUB Me01,Me02,M 
e03,Me04,MeO5:RETURN 

Meo1: 

WINDOW 1,,(104,24)-(400,336),-3:TE 
XTFONT O:TEXTSIZE 12:TEXTM 
ODE 1:FOR 1=0 TO 3:C1(I)}=&HAAS 
5:NEXT:PENPAT VARPTR(C1(0)) 

RESTORE Coo:GOSUB S1:FOR i=0 
TO 4 STEP 4:FRAMERECT VA 
RPTR(C1(I)):NEXT 

N=0:FOR 1-32 TO 104 STEP 24:N- 
N+1:EDIT FIELD N,"",(176,1-15)-(28 
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est à remarquer que le libellé 2 ne 
figure pas sur l'état. 


Les limitations de ce programme 

sont les suivantes : 

+ 1000 opérations par an c'est à 
dire environ 100 Ko 
(modifiable ligne Ncomptes), 





0,1):R(N,0)=176:R(N,1)=1-15:R(N,2)=28 
O:R(N,3)=1 

READ C$:MOVETO 16,/:PRINT C$;: 
GETPEN VARPTR(C1(0)):LINE(C1( 
1),1)-(168,1):NEXT 

FOR 1-32 TO 176 STEP 144:FOR 
J=153 TO 265 STEP 24:N=N+1:ED 
IT FIELD N,"",(1,J)-(1+104,J+15):R(N 
0)=IR(N,1)=J'R(N,2)=1+104:R(N,3)=J+ 
15 

MOVETO i-22,J+12:PRINT USING"# 
#";N-4:NEXT:NEXT 

MOVETO 16,136:PRINT "Noms der 
ubrique pour ventilation":MOVETO 1 
6,144:LINETO 280,144 

BUTTON 1,0,"OK",(64,280)-(128,304),1 
‘BUTTON 2,1,"Annuler”,(168,280)-(23 
2,304),1:EDIT FIELD 1:EF=1 

FOR i=1 TO 14:TV(I)-0:NEXT:ON D 
IALOG GOSUB Di:DIALOG ON 

RETURN 

MeoO2: 

F$=FILES$(1,"COMP"):IF f$="" THEN 
MENU:RETURN 

OPEN'R",1,F$,112:F$=LEFTS$(F$,LEN( 
F$)-2)+".P":OPEN"R",2,F$,2:F$=LEFT 
$(F$,LEN(F$)-2)+".V':OPEN"R",3,F$, 
25 

Me022: 

FIELD 1,6 AS zDA$,11 AS zNum$,32 
AS zLib1$,32 AS zLib2$,8 AS zMo 
n$,8 AS zSol$,8 AS zCBS$,2 AS zC 
ode$,2 AS zPoin$,2 AS zVent$ 

FIELD 2,2 AS zNume$ÿ 

FIELD 3,25 AS zN$ 

GET 2,1:Num=CVI(zNumef) 

WINDOW 1,,(8,24)-(504,336),3:TEXT 
FONT O:TEXTSIZE 12:TEXTMOD 
E 1 

LINE (8,8)-(488,64),,B:FOR i=0 TO 3: 
C1(I}=&HAASS:NEXT:PENPAT VAR 
PTR(C1(0)):MOVETO 16,32:LINETO 
480,32:RESTORE Coo2:FOR i=0 
TO 7:READ C\(I):NEXT:FRAMER 
ECT VARPTR(C1(0)):FRAMERECT 
VARPTR(C1(4)) 

FOR 1-0 TO 7:READ ci(l):NEXT:F 
RAMERECT VARPTR(C1(0)):FRA 
MERECT VARPTR(C1i(4)) 

MOVETO 353,87:PRINT"Ventilation": 
MOVETO 352,96:LINETO 480,96:F 
OR 1=0 TO 9:BUTTON 1+1,1,"",(353 
,109+16*1)-(367,121+16*1),3:GET 3,1+ 
1:MOVETO 376,120+l*16:PRINT z 
N$:EF$(1+1)=ZzN$:NEXT:BUTTON 1, 
2 


GOSUB Aff:PENMODE 11:C1(0)=144 
C1(1)-240:C1(2)-162:C1(3)-304:C1 (4) 
=216:C1(5)-8:C1(6)-258:C1(7)=-120:P 


+ 100 opérations non | " 
pointées (modifiable É | 
ligne Npoint), = 

EN 

+ 900 millions de rs 

francs, pour rêver. 


AINTRECT VARPTR(c1(0)):PAINT 
RECT VARPTR(ci(4)) 

BUTTON 11,0,"",(309,145)-(323,160),3: 
n=11:FOR i=133 TO 309 STEP 17 
6:FOR j=172 TO 188 STEP 16:n=n 
+1:BUTTON n,1,"",(1,J)-(1+14,J+14),3 
:INEXT:NEXT:BUTTON 13,2 

GET 1,Num+1:GOSUB RAPPEL 

GOSUB EField:BUTTON 16,0,"Premie 
r",(8,264)-(112,280):BUTTON 17,0,"1 
0 en arrière",(120,264)-(224,280):BU 
TTON 18,0,"Précédent",(232,264)-(33 
6,280) 

BUTTON 19,0,"Dernier",(8,288)-(112,30 
4):BUTTON 20,0,*10 en avant”,(120 
,288)-(224,304):BUTTON 21,0,"Suiva 
nt”,(232,288)-(336,304):BUTTON 22, 
0,"Valider",(344,288)-(488,304) 

DM=1:MENU:MENU 4,0,1:MENU 4,1, 
0:MENU 4,2,0:FOR i=3 TO 5:MEN 
U 4,1,1:NEXT:MENU 5,0,1:MENU 5 
,3,0 

EFS=1:EF-11:RESTORE CooS:FOR | 
=1 TO 5:READ R(1,0),R(1,1),R(1,2),R 
(1,3): NEXT:FOR i=1 TO 3:TV(I)=0:N 
EXT:LSET zVent$-MKI$(1):LSET 
zPoin$=-MKI$(0):LSET zCode$-MKI 
$(2):LSET zLib2$="":LSET zNum$=" 
"ON DIALOG GOSUB DSaisie:DI 
ALOG ON:RETURN 


Meo03: 

GOSUB Me03b 

CLOSE:RETURN 

Me03b: 

WINDOW CLOSE 1:GOSUB MMenu 
:GOSUB FQO:RETURN 


MMenu: 

MENU 4,1,1:MENU 4,2,1:MENU 4,3, 
O:MENU 4,4,0:MENU 4,5,1:MENU 
5,0,0:MENU 5,1,2:MENU 5,2,1:ME 
NU 5,3,0:RETURN 

FQ: 

IF DM=3 THEN GOSUB MJPoint 

RETURN 

Me04: 

DIALOG OFF:GET 2,1:NDL=CVI(ZN 
ume$)+1:GET 2,2:NNP=CVI(ZNumef) 
:GET 2,NNP+2:NDL1=-CVI(ZNumef): 
GET 2,3:NPL=CVI(ZNume$):NPL1=N 
PL 

IF NNP=0 THEN NPL=NDL-10 

IF NPL<1 THEN NPL=1 

GOSUB Me03b:WINDOW 1,,(172,127 
)-(348,215),-3:TEXTFONT 0:MOVE 
TO 16,24:PRINT"Première ligne”:M 
OVETO 16,48:PRINT"Dernière ligne 

EDIT FIELD 1,STR$(NPL),(120,12)-( 
160,27),1,3 





Cd 





EDIT FIELD 2,STR$(NDL-1),(120,36) 
-(160,51),1,3 
EF=1:BUTTON i,1,"OK",(16,64)-(82,79 


is EN BUTTON 2,1 ,"Annuler",(94,64)-(160 
S ,79):ON DIALOG GOSUB Dimp:D 


IALOG ON 

Dimp: 

N=DIALOG(0):1F N=1 THEN Bimp E 
LSE IF N-2 THEN Simp ELSE I 
F N=6 OR N=7 THEN RTImp ELS 
E RETURN 

Bimp: 

IF DIALOG(1)-2 THEN WINDOW 
CLOSE 1:GOSUB Me03:CLOSE:R 
ETURN 

XNPL=VAL(EDIT$(1)):xNDL=V AL(EDI 
T$(2)) 

IF xNPL>xNDL OR xNPL<O OR xNDL 
>NDL-1 THEN BEEP:EDIT FIELD 
1:RETURN 

NPL=XxNPL+1:NDL=xNDL+1:1F NPL>NPL 
1+1 OR NDL<NDL1+1 THEN drap=0 
ELSE drap=-1 

GOTO Impres 

Simp: 

IF DIALOG(2)=EF THEN RETURN 
ELSE EF-DIALOG(2):GOTO Dimp 
S 

RTImp: 

IF EF-2 THEN EF=1 ELSE ef=2 

DimpsS: 

EDIT FIELD EF:RETURN 

Meo5: 

GOSUB FQ:CLOSE:SYSTEM 

Mel: 

ON MENU(1) GOSUB Me11,Me12,M 
e13:RETURN 

Mei1: 

LINE(9,9)-(487,30),30,BF:LINE(9,34)-{ 
487,63),30,BF 

GET 2,1:Num=CVi(zNumef):GET 1,N 
um+1:GOSUB rappel 

PENMODE 8:C1(0)=144:C1(1)=240:C1( 
2)=162:C1(3)-304:C1(4)-216:C1(5)=8: 
C1(6)-258:C1(7)=120:PENMODE 11: 
PAINTRECT VARPTR(c1(0)):PAIN 
TRECT VARPTR(ci(4)) 

LINE(145,217)-(326,230),30,BF:LINE(1 
45,241)-(326,254),30,BF 

RESTORE coo2:FOR i=0 TO 7:REA 
D c1(l):NEXT:FOR i=0 TO 7:REA 
D ci(l):NEXT:PENMODE 8:FRAM 
ERECT VARPTR(C1(0)):FRAMERE 
CT VARPTR(C1(4)):PENMODE 11 

FOR i=15 TO 22:BUTTON I,0:NEXT 
:FOR i=1 TO 10:BUTTON I,1:NEX 
T:BUTTON 1,2:BUTTON 11,0:FOR 
1=12 TO 15:BUTTON |,1:NEXT:BU 
TTON 13,2 

DM=1:MENU:MENU 5,1,2:MENU 5,2, 
1:MENU 5,3,0:GOSUB Efield 

EFS=1:EF-11:FOR i=1 TO 3:TV(I)=0: 
NEXT:LSET zVent$=-MKI$(1):LSET 
zPoin$=MKI$(0):LSET zCode$-MK 
1$(2):LSET zLib2$="":LSET zNum$= 
"*:ON DIALOG GOSUB DSaisie:D 
IALOG ON:RETURN 

Mei2: 

DIALOG OFF:IF DM=2 THEN RETU 
RN ELSE IF DM=3 GOTO Me123 





Me12S: 

DM=2:C1(0)-9:C1(1)-9:C1(2)=30:C1(3)=4 
87:C1(4)-34:C1(5)-9:C1(6)-63:C1(7)-4 
87:PENMODE i1:PAINTRECT VA 
RPTR(C1(0)):PAINTRECT VARPT 
R(C1(4)) 

FOR |=1 TO 15:BUTTON |,1:NEXT: 
FOR 1=1 TO S:EDIT FIELD CLOS 
E I:NEXT 

LINE(223,72)-(329,89),,B:LINE(71,96)- 
(329,113),,B:LINE(71,120)-(329,137),, 
B:LINE(71,144)-(177,161),,B:LINE(7 
1,72)-(147,89),,B 

RESTORE Coo2:FOR i=0 TO 7:RE 
AD C{(I):NEXT:FOR i=0 TO 7:RE 
AD C{(I)}:NEXT:PENMODE 14:FR 
AMERECT VARPTR(C1(0)):FRAM 
ERECT VARPTR(C1(4)) 

MOVETO 16,228:PRINT"Solde Banqu 
e":MOVETO 16,252:PRINT"Dû Cart 
e bleue":MOVETO 242,159:PRINT* 
Pointage 

BUTTON 22,0:FOR 1=16 TO 18:BUT 
TON I,1:NEXT:MENU 5,1,1:MENU 5 
,2,2:MENU 5,3,1:GET 2,1:Num=CVI 
(zNume$)+1:NumF=Num:GET 2,2:No 
mbre=CVI(zNume$):GOSUB AffCons 
‘ON DIALOG GOSUB consult:DI 
ALOG ON:RETURN 

Me123: 

GOSUB MJPoint:GOSUB vide:GOT 
O Mei2S 

MJPoint: 

DM=2:FOR 1-1 TO Nombre:LSET zN 
ume$=MKI$(TABL(I)-1):PUT 2,1+2:NE 
XT 

LSET zNume$-MKI$(Nombre):PUT 2, 
2:RETURN 

Me13: 

IF Nombre=0 THEN MENU 5,3,0:RE 
TURN 

DM=3:DIALOG OFF 

GOSUB Vide 

FOR 1-16 TO 21:BUTTON I,1:NEXT 
‘FOR i=16 TO 17:BUTTON 1,0:BU 
TTON 1+3,0:NEXT 

MENU:FOR 1=0 TO 2:MENU 5,1+1,1: 
NEXT 

FOR 1=1 TO Nombre:GET 2,1+2:TAB 
L(I}=CVI(ZNume$)+1:NEXT:11=1 

GOSUB AffPoint 

BUTTON 18,0:IF nombre=1 THEN B 
UTTON 21,0 

ON DIALOG GOSUB Pointage:DIA 
LOG ON:RETURN 

Pointage: 

N=DIALOG(0):1F N=1 THEN PoinBou 
ton ELSE IF N=2 THEN PoinSour 
ELSE PointRT 

RETURN 

PoinBouton: 

N=DIALOG(1):1F N=11 THEN BPoint 
ELSE IF N=18 THEN prec ELSE 
IF N<21 THEN RETURN 

IF N=21 THEN Suiv ELSE Valide 

BPoint: 

IF BUTTON(11)=1 THEN BUTTON 
11,2:BUTTON 22,1 ELSE BUTTO 
N 11,1:BUTTON 22,0 

RETURN 


prec: 

BUTTON 21,1:11=11-1:1F 11l=1 THEN 
BUTTON 18,0 

GOSUB vide:GOSUB AffPoint:RETU 
RN 

Suiv: 

BUTTON 18,1:11=11+1:1F lI=Nombre T 
HEN BUTTON 21,0 

GOSUB vide:GOSUB AffPoint:RETU 
RN 

Valide: 

LSET zLib1$-EDIT$(2):LSET zLib2$ 
=EDIT$(3):LSET zNum$=EDIT$(1): 
LSET zPoin$=MKi$(-1):PUT 1,TAB 
L(11) 

Nombre=Nombre-1 

IF nombre=0 THEN GOSUB vide:FO 
R 1=1 TO 22:BUTTON I,0O:NEXT:E 
DIT FIELD 3,"",(72,121)-(328,136):E 
DIT FIELD 2,"",(72,97)-(328,112):E 
DIT FIELD 1,"",(224,73)-(328,88):R 
ETURN 

FOR !=II TO nombre:SWAP TABL(I), 
TABL(I+1):NEXT 

IF II=Nombre+i THEN BUTTON 21,0 
=11-1 

IF 11=1 THEN BUTTON 18,0 

GOSUB vide:GOSUB AffPoint:RETU 
RN 

PoinSour: 

IF DIALOG(2)-EF THEN RETURN 
ELSE NEF-DIALOG(2) 

GOTO DPoint 

PointRT: 

IF EF=3 THEN NEF=1 ELSE NEF=E 
F+1 

DPoint: 

EF$(EF+10)-EDIT$(EF) 

IF EF>1 THEN Point2 

Point1b: 

IF WIDTH(EF$(11))>96 THEN EF$(11 
)=LEFT$(EF$(11),LEN(EF$(11))-1):G 
OTO Pointib ELSE EDIT FIELD 
1,EF$(11),(224,73)-(328,88):EF-NEF:E 
DIT FIELD EF:RETURN 

Point2: 

IF WIDTH(EF$(EF+10))>240 THEN E 
F$(EF+10)=LEFTS$(EF$(EF +10), LEN( 
EF$(EF+10))-1):GOTO Point? ELSE 

EDIT FIELD EF,EF$(EF+10),(72,97 
+(24*(EF-2)))-(828,112+(24"(EF-2))):EF 
=NEF:EDIT FIELD EF:RETURN 

Vide: 

LINE(72,145)-(176,160),30,BF:LINE(72 
,73)-(146,88),30,BF 

LINE(145,217)-(326,230),30,BF:LINE(1 
45,241)-(326,254),30,BF 

FOR I=1 TO 15:BUTTON I,1:NEXT 

RETURN 

AffPoint: 

GET 1,TABL(II):EF=1 

EDIT FIELD 3,zLib2$,(72,121)-(328,1 
36):ef$(13)=zLib2$ 

EDIT FIELD 2,zLib1$,(72,97)-(328,11 
2):ef$(12)=zLib1$ 

EDIT FIELD 1,zNum$,(224,73)-(328,8 
8):ef$(11)=zNum$ 

MOVETO 80,85:PRINT LEFT$(zDA$ 
,2)+"/"+MID$(ZDA$,3,2)+"/"+RIGHTS( 
ZDA$,2) 
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Pom's n° 20 


MOVETO 80,157:PRINT USING US$: 
CVD(zMon$) 

MOVETO 220,229:PRINT USING U 
$;CVD(zSol$): MOVETO 220,253:PR 
INT USING U$;CVD(zCB$) 

code=CVi(zCode$):BUTTON code+11, 
CVI(ZPoin$) THEN BUTTON 

IF CVI(ZVent$) THEN BUTTON CVI 
(zVent$),2 

BUTTON 22,0 

RETURN 


Consult: 

N=DIALOG(0):N=DIALOG(1):1F N<16 
THEN RETURN 

ON (N-15) GOTO C1,C10M,CP,CD,C1 
OP,CS 

Ci: 

NumF=1:GOTO SConsult 

C10M: 

IF (NumF-10)<1 THEN NumF=1 ELS 
E NumF=NumF-10 

GOTO SConsult 

CP: 

NumF=NumF-1:GOTO SConsult. 

CD: 

NumF=Num:GOTO SConsult 

C10P: 

IF (NumF+10)>Num THEN NumF=Num 
ELSE NumF=NumF +10 

GOTO SConsult 

CS: 

NumF=NumF+1:GOTO SConsult 


SConsult: 

FOR I=1 TO 15:BUTTON I,1:NEXT 

LINE(225,75)-(327,87),30,BF:LINE(73, 
98)-(327,111),30,BF:LINE(73,122)-(32 
7,135),30,BF:LINE(73,146)-(175,159), 
30,BF:LINE(73,74)-(145,87),30,BF 

LINE(145,217)-(326,230),30,BF:LINE(1 
45,241)-(326,254),30,BF 

IF num=1 THEN FOR 1-16 TO 21:B 
UTTON I,0:NEXT:GOTO SSConsul 


t 

FOR 1=16 TO 21:BUTTON I,1:NEXT 

IF numF=1 THEN FOR i=16 TO 18: 
BUTTON i,0:NEXT 

IF numF = num THEN FOR i = 19 
TO 21:BUTTON I,0:NEXT 

IF (numF-10)<i THEN BUTTON 17,0 

IF(numF+10)>num THEN BUTTON 20 
,0 

SSConsult: 

GOSUB AffCons:RETURN 

EField: 

EDIT FIELD 2,"°,(224,73)-(328,88):E 
DIT FIELD 3,"",(72,87)-(328,112):E 
DIT FIELD 4,"*,(72,121)-(328,136):E 
DIT FIELD 5,°",(72,145)-(176,160) 

EDIT FIELD 1,LEFT$(zZDA$,2)+"/"+M 
ID$(ZDA$,3,2)+"/"+RIGHT$(ZDAS,2),( 
72,73)-(146,88):RETURN 


VentOff: 
C1(0)=-112:C1(1)-376:C1(2)-274:C1(3)-4 
87:PAINTRECT VARPTR(c1(0)):F 





Pom's n° 20 





OR i=1 TO 10:BUTTON I,0:NEXT: 
LSET zVent$-MKI$(0):RRETURN 


Aff: 

MOVETO 9,87:PRINT"Date":MOVET 
© 168,87:PRINT"Numéro":MOVETO 
9,111:PRINT"Lib. 1":MOVETO 9,1 
35:PRINT"Lib. 2":MOVETO 9,159:P 
RINT'Montant":MOVETO 16,228:PR 
INT'Solde Banque":MOVETO 16,25 
2:PRINT"Dù Carte bleue 

MOVETO 16,183:PRINT"Recette Ban 
que”":MOVETO 16,199:PRINT"Dépe 
nse Banque":MOVETO 165,183:PRI 
NT'Dépense Carte Bleue":MOVETO 
165,199:PRINT" Virement Carte Ble 
ue":MOVETO 242,159:PRINT"Point 


age 
RETURN 


pel: 

N=0:FOR I=1 TO LEN(F$):1F MID$( 
F$,1,1)=":" THEN N=1 

NEXT:IF n THEN F$=RIGHTS$(F$,LE 
N(FS$)-N) 

MOVETO 16,24:PRINT "Fichier *** L 
EFT$(F$,LEN(F$)-2) “"" - Rappel de 
l'enregistrement précédent :" Num 

MOVETO 16,44:PRINT LEFT$(ZDA$ 
,2)+"/"+MIDS$(ZDA$,3,2)+"/"+RIGHTS$( 
zDA$,2) 

MOVETO 93,44:PRINT "N° * zNum$: 
MOVETO 214,44:PRINT zLib1$ 

N=CVI(zCode$):V1#-0:V2#-0:V3#=0:0 
N N-1 GOTO SN2,SN3,SN4 

M1 #-CVD(zMon$):GOTO SNO 

SN2: 

V2#-CVD(zMon$):GOTO SNO 

SN3: 

V3#-CVD(zMon$):GOTO SNO 

SN4: 

V2#=-CVD(zMon$):V3#=-CVD(ZMon$) 

SNO: 

MOVETO 16,59:PRINT USING"Débit 
Bq :#########.## Crédit Bq :## 
HAHAHHAHNH CE HAMMAM MAT V 
1#,V2#,V3# 

RETURN 


Di: 

N=DIALOG(0):1F N=1 THEN Bouton 
ELSE IF N=2 THEN Dsouris ELS 
E IF N=6 OR N=7 THEN TabRetur 
n ELSE RETURN 

Bouton: 

IF DIALOG{(1)=1 THEN BoutonOK 

MENU:WINDOW CLOSE 1:RETUR 
N 

BoutonOK: 

MENU:DIALOG OFF:AI=VARPTR(C 
2(0)):A! 4:OPEN'R",1,EF$(2),25:NA 
ME EF$(2) AS EF$(2)+".V" 

FIELD 1,25 AS zN$ 

FOR I=1 TO 10:LSET zN$=-EF$(I+4): 
PUT 1,I:NEXT 

CLOSE 

OPEN"R",1,EF$(2),112:NAME EF$(2) 
AS EF$(2)+".D","COMP" 

FIELD 1,6 AS zDA$,11 AS zNum$,3 


2 AS zLib1$,32 AS zLib2$,8 AS z 
Mon$,8 AS zSol$,8 AS zCBS$,2 AS 
zCodef$,2 AS zPoin$,2 AS zVent$ 

Ncomptes: J 

FOR 1=1 TO 1001:PUT #1,1:NEXTC 

LSET zDA$=JJ$+MM$+AAS:LSET zN 
um$="":LSET zLib1$="Reprise de sol 
des":LSET zLib2$="" 

V#=VAL(ef$(3)):1F v#<0 THEN V#=A 
BS(v#):n=2 ELSE n=1 

LSET zMon$=-MKDS$(V#):LSET zSol$ 
=MKDS$(VAL(EF$(3))) 

LSET zCB$-MKDS$(VAL(EF$(4))):LSE 
T zCode$-MKI$S(N):LSET zPoin$-M 
KI$(-1):LSET zVent$-MKI$(0) 

PUT 1,1 

CLOSE 

OPEN'R",1,EF$(2),2:NAME ef$(2) AS 

ef$(2})+".P" 

FIELD 1,2 AS zP$:LSET zP$-MKI$ 
(0):PUT 1,1 

Npoint: 

FOR i=2 TO 102:PUT 1,I:NEXT:CL 
OSE 

WINDOW CLOSE 1:INITCURSOR: 
DIALOG ON:RETURN 


Dsouris: 

IF DIALOG(2)-EF THEN RETURN 
ELSE NEF=DIALOG(2):GOTO Trai 
t 

TabReturn: 

IF EF=14 THEN NEF-=1 ELSE NEF= 
EF+1 

Trait: 

IF EF>4 THEN Ventil ELSE ON EF- 
1 GOTO Nom,MB,CB 

EF$(1)=EDIT$(1):1F LEN(EF$(1))=0 T 
HEN TV(1)=0:GOTO Dsuivant ELS 
E GOSUB Vdate 

1F DE THEN TV(1)=0:GOTO Erreur 
ELSE TV(1)=-1:GOTO Dsuivant 

Nom: 

EF$(2)-EDIT$(2):1F LEN(EF$(2))=0 T 
HEN TV(2)=0:GOTO Dsuivant ELS 
E GOSUB VLongP 

TV(2)=-1:GOTO Dsuivant 

MB: 

EF$(3)=EDIT$(3):1F LEN(EF$(3))=0 T 
HEN TV(3)=0:GOTO Dsuivant ELS 
E GOSUB VVaiIN 

IF DE THEN TV(3)=-0:GOTO Erreur 
ELSE TV(3)=-1:GOTO Dsuivant 

CB: 

EF$(4)=EDIT$(4):1F LEN(EF$(4))=0 T 
HEN TV(4)=0:GOTO Dsuivant ELS 
E GOSUB VValP 

IF DE THEN TV(4)=-0:GOTO Erreur 
ELSE TV(4)=-1:GOTO Dsuivant 

Ventil: 

EF$(EF)=EDIT$(EF):IF LEN(EF$(EF))= 
0 THEN TV(EF)=0:GOTO Dsuivant 
ELSE GOSUB VLongP 

TV(EF)=-1:GOTO Dsuivant 


Dsuivant: 

EDIT FIELD EF,EF$(EF),(R(EF,0),R(E 
F,1))-(R(EF,2),R(EF,3)):EF-NEF:EDIT 
FIELD EF 

DE=-1:FOR 1=1 TO 14:1F TV(1)=0 TH 


[3 


LS 
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LS 





EN DE=0 

NEXT:IF DE THEN IF BUTTON(1)- 
0 THEN BUTTON 1,1:RETURN 

IF DE=0 THEN IF BUTTON(1)=1 T 
HEN BUTTON 1,0 

RETURN 


Erreur: 

BEEP:BEEP:EDIT FIELD EF,EF$(E 
F),(R(EF,0),R(EF,1))-(R(EF,2),R(EF,3)): 
RETURN 


Meo05: 
MENU RESET:END 


Vdate: 

DE=0:IF LEN(EFS(EF))=6 THEN N=-1 
ELSE IF LEN(EF$(EF))=8 THEN 
N=0 ELSE VdateEr 

JJ$=LEFT$(EFS$(EF),2):1F VAL(JJ$)>3 
1 THEN VdateEr 

IF N THEN MMS$=MIDS(EFS$(EF),3,2) 
ELSE MM$=-MID$(EFS$(EF),4,2) 

IF VAL(MM$)>12 THEN VdateEr 

AA$=RIGHT$(EFS$(EF),2):1F VAL(AAS) 
<85 THEN VdateEr 

EF$(EF)=JJ$+"/"+MM$+"/"+AA$:RETUR 
N 


VdateEr: 
DE=-1:RETURN 


VLongP: 

L=WIDTH(EF$(EF)):1F L<96 THEN R 
ETURN ELSE EF$(EF)=RIGHT$(E 
F$(EF),LEN(EF$(EF))-1):GOTO VLon 
gP 


VVaIN: 

DN=-1:GOTO VVal 

VValP: 

DN=0 

VVal: 

N=0:L=LEN(EFS$(EF)):FOR 1=1 TO L:C 
$=MIDS(EFS$(EF),1,1):1F C$="?" OR 
C$="," OR C$=";" OR C$="." THEN 
MIDS$S(EFS(EF),1,1)=".":N=1 

NEXT:IF N THENIF L>(N+2) THEN 
EF$(EF)=LEFT$(EF$(EF),N+2) 

N#=VAL(EFS$S(EF)):N#=INT(N#*100+.5)/1 
00:EF$(EF)=STRS$(N#):1F LEFT$(EF 
$(EF),1)=" " THEN EF$(EF)=RIGHT 
$(EF$(EF),LEN(EFS$(EF))-1) 

IF N=0 OR N=L THEN EF$(EF)=EFS$( 
EF)+".00" 

L=LEN(EFS$(EF)):F (N+2)-L=1 THEN 
EF$(EF)=EF$(EF)+"0" 

IF DN THEN IF N#>999999999.99# 
OR N#<-99999999.99# THEN DE=-1 
‘RETURN ELSE DE=-0:RETURN 

IF N#>999999999.99# OR N#<0 THE 
N DE=-1:RETURN ELSE DE=-0:RE 
TURN 


S1: 
FOR 1-0 TO 7:READ Ci(I):NEXT:A! 
=VARPTR(C1(0)):RRETURN 


DSaisie: 
N=DIALOG{(0):1F N=1 THEN SBouton 
ELSE IF N=2 THEN SDsouris EL 


SE IF N=6 OR N=7 THEN STabRe 
turn ELSE RETURN 

SBouton: 

N=DIALOG{(1):1F N<11 THEN VentilS 
ELSE IF N=22 THEN ValidS 

FOR i=12 TO 15:BUTTON |I,1:NEXT 
‘BUTTON N,2:NN=BUTTON(1) 

IF NN=0 THENIF N=13 OR N=14T 
HEN FOR i=0 TO 9:BUTTON +1, 
1:MOVETO 376,120+l*°16:PRINT E 
F$(I+1):NEXT:BUTTON 1,2:GOTO 
SBoutonS 

IF N=12 OR N=15 THEN GOSUB V 
entOff 

SBoutonS: 

Code=N-11:GOTO SDSouris2 


VentilS: 

FOR i=1 TO 10:BUTTON |I,1:NEXT: 
BUTTON N,2:Ventil=N:GOTO SDSo 
uris2 


ValidS: 

IF BUTTON(13)=-2 THEN code=2 

IF BUTTON(1)=2 THEN LSET zVen 

=MKI$(1) 

IF BUTTON(1)=1 THEN LSET zVen 
t$-MKI$(Ventil) ELSE IF BUTTON 
(1)=0 THEN LSET zVent$-MKI$(0) 

CBleue#-CVD(zCB$):Solde#-CVD(zSol 
$):LSET zCode$-MKI$(code):LSET 

zMon$-MKD$(VAL(montant$)):ON c 
ode-1 GOTO code2,code3,code4 

LSET zSol$-MKD$(VAL(Montant$)+S 
olde#):GOTO Enrs 

code2: 

LSET zSol$-MKD${(Solde#-VAL(Mont 
ant$)):GOTO Enrs 

code3: 

LSET zCB$-MKD$(CBleue#+VAL(Mon 
tant$)):GOTO EnrsS 

code4: 

LSET zCB$-MKD$(CBleue#-VAL(Mon 
tant$)):LSET zSol$-MKD$(Solde#-V 
AL(Montant$)) 

EnrS: 

GET 2,2:NEnrNP=CVI(ZNumef) 

LSET zNume$-MKI$(Num+1):PUT 2, 


1 

LSET zNume$=MKI$(NEnrNP+1):PUT 
2e 

LSET zNume$-MKI$(Num+1):PUT 2, 
NEnrNP+3 

PUT 1,Num+2 

GET 2,1:Num=CVi(zNumef):FOR 1=0 
TO 9:BUTTON 1I+1,1 

MOVETO 376,120+l*16:PRINT ef$(l+ 
1):NEXT:BUTTON 1,2 

BUTTON 22,0:LINE(9,9)-(487,30),30, 
BF:LINE(9,34)-(487,63),30,BF 

BUTTON 12,1:BUTTON 13,2:BUTTO 
N 14,1: BUTTON 15,1 

GET 1 ,Num+1:GOSUB rappel 

GOSUB EField:EFS=1:EF-11:FOR I1=1 
TO 3:TV(I)=0:NEXT:LSET zLib2$= 
"*:LSET zNum$="":LSET zVent$-M 
KI$(1):LSET zPoin$-MKI$(0):LSET 
zCode$-MKI$(2):RETURN 


SDSouris2: 


NEFS=DIALOG(2):DV=0:GOTO TraitS 

SDSouris: 

IF DIALOG(2)-EFS THEN RETURN 

ELSE NEFS-DIALOG(2):DV=-1:G 
OTO TraitsS 

STabReturm: 

IF EFS=5 THEN NEFS=1 ELSE NEF 
S=EFS+1 

TraitS: 

ON EFS-1 GOTO NumS,Lib1S,Lib2s, 
MontantS 

EF$(EF)=EDIT$(1):1F LEN(ef$(EF))=0 
THEN TV(1)-0:GOTO DsuivantS:EL 
SE GOSUB Vdate 

IF DE THEN TV(1)=0:GOTO Erreurs 

ELSE TV(1)=-1:LSET zDA$=-LEFT 
$(EF$(EF),2)+MID$(EFS$(EF),4,2)+RI 
GHTS$(EF$(EF),2):GOTO DsuivantS 

NumsS: 

EF$(EF)=EDIT$(2) 

NumSb: 

IF LEN(EF$(EF))>11 THEN EF$(EF)= 
LEFTS$S(EFS$(EF), LEN(EFS$(EF))-1):GO 
TO NumSb ELSE LSET zNum$=EF 
$(EF):GOTO DsuivantsS 

Lib1S: 

EF$(EF)=EDIT$(3):1F LEN(EF$(EF))=0 
THEN TV(2)-0:GOTO DsuivantS 

TV(2)=-1 

Lib1Sb: 

IF WIDTH(EF$(EF))>240 THEN EF$( 
EF)=LEFTS$S(EFS$(EF),LEN(EFS$(EF))-1) 
:GOTO LibiSb ELSE LSET zLib1 
$=EF$(EF):GOTO DsuivantS 

Lib2S: 

EF$(EF)=EDITS$(4) 

Lib2Sb: | 

IF WIDTH(EFS$(EF))>240 THEN EF$(E 
F)=LEFT$(EF$(EF), LEN(EFS$(EF))-1): 
GOTO Lib2Sb ELSE LSET zLib2$=E 
F$(EF):GOTO DsuivantS 


MontantS: 

EF$(EF)=EDIT$(5):IF LEN(EF$(EF))=0 
THEN TV(3)=-0:GOTO DsuivantS 
ELSE GOSUB VValP 

IF DE THEN TV(3)=-0:GOTO Erreurs 
ELSE TV(3)=-1:Montant$=EF$(EF): 
GOTO DsuivantS 


DsuivantS: 

EDIT FIELD EFS,EF$(EF),(R(EFS,0), 
R(EFS,1))-(R(EFS,2),R(EFS,3))1F DV 
THEN EFS=-NEFS:EDIT FIELD EF 
S 

GOSUB VerifS:RETURN 


Erreurs: 

BEEP:BEEP:EDIT FIELD EFS,EFS$( 
EF),(R(EFS,0),R(EFS,1))-(R(EFS,2),R( 
EFS,3)): RETURN 


VerifS: 

DE=-1:FOR 1=1 TO 3:1F TV(1)=0 TH 
EN DE=0 

NEXT:IF DE THEN IF BUTTON(22) 
=0 THEN BUTTON 22,1:RETURN 

IF DE=0 THEN IF BUTTON(22)=1T 
HEN BUTTON 22,0 

RETURN 
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Fichiers Options 





Fichier BNCI 007665 - Rappel de l'enregistrement précédent : 6 
Editions MEU Recueil Pom's 2 


19/08/85 N° 8248253 
0.00 Crédit Bg: 


Débit Bq: 
pate 
Lib. 1 
Lib. 2 
Montant Eau 

Recette Banque © 


Numéro 6443997 


Photo Shop 


Paintage © 


Dépense Carte Bleue ©. 


Dépense Banque ©  Lirement Carte Bleue O: 


teide Hernqus 


Dé Carto Bious 


U Premipr 


| téen arriere | | téen arriere | &FFIiGre 


| Procédent | 


0.00 CB: 


Alimentation 
Uêtements 
Loisirs 
Vacances 
Impôts” 
Ordinateur 
Photographie 
Moto 

Divers 


| 00©0000000 





Certes 36 en avant) D or —Hatider ; 


Impres: 

WIDTH"LPT1:",136 

Page-0:TD#=0:TC#-0:TCB#=-0:SBT#-0:S 
CT#=0 

FOR i=1 TO 10:VENT#(i)=0:NEXT 

GOSUB entete 

FOR i=NPL TO NDL 

GET 1, 

MT#=-CVD(zMon$):So#-CVD(zSol$):CB 
#-CVD(zCB$):Co=CVI(zCodef) 

Li=Li+1 

IF Li>55 THEN GOSUB totaux:LPR 
INT CHR$(12);:GOSUB entete 

GOSUB Ligne 

NEXT 

GOSUB Totaux 

IF NOT DRAP THEN LPRINT ‘Editi 
on insuffisante pour calcul du rappr 
ochement":GOTO ici 

LPRINT'SOLDES THEORIQUES SUR 
EXTRAIT BANCAIRE : 

LPRINT TAB(30);USING U$;SBT#+S 
o#;:LPRINT" en compte principal 

LPRINT TAB(30);USING U$;SCT#+C 
B#::LPRINT" en carte bleue 

ici: 

LPRINT CHR$(12) 

LPRINT “VENTILATION DES DEPENS 
ES 

FOR i=1 TO 10:LPRINT EF${(i); TAB( 
26);USING US$; VENT#{(i):NEXT:LPR 
INT CHR$(12) 

WINDOW CLOSE 1:GOSUB Me03: 
CLOSE:RETURN 

entete: 

Page-Page+1:Li=0 

LPRINT CHR$(27)CHR$(81) 

LPRINT'Extrait compte banque “ LE 
FT$(F$,LEN(F$)-2) ”, ligne "Npl” A * 
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Ndl”, page “Page 

FOR i=0 TO 126:LPRINT ‘-";: NEX 
T:LPRINT 

LPRINT "! l" SPC(13) “!" 
SPC(33) "!";: FOR i=1 TO S:LPRI 
NT SPC(12)"!";:NEXT:LPRINT" !" 

LPRINT"! DATE ! NUMERO 

! LIBELLE 1" SPC(23);"! RECETT 
E ! DEPENSE ! SOLDE 
| MOUVEMENT ! SOLDE TP! 

LPRINT *! | OPERATION 
l" SPC(33)"! BANQUE ! BAN 
QUE ! BANQUE I!CARTE BL 
EUE! CARTE BLEUE! ! 

FOR i=0 TO 126:LPRINT ‘-";: NEX 
T:LPRINT 

RETURN 

Totaux: 

FOR i=0 TO 126:LPRINT "-";: NEX 
T:LPRINT 

LPRINT *! Totaux";:LPRINT TAB(60) 
"l':LPRINT USING U$;TD#;:LPRI 
NT"!";:LPRINT USING U$;TC#;:LP 
RINT'!":LPRINT USING U$;So#;: 
LPRINT"!" USING U$;TCB#;:LPRI 
NT"!";:LPRINT USING U$;CB#;:LP 
RINT"! !* 

FOR i=0 TO 126:LPRINT "-";: NEX 
T:LPRINT 

RETURN 

Ligne: 

LPRINT*!" LEFT$(ZDA$,2)"/" MIDS( 
zZDA$,3,2)"/" RIGHT$(ZDA$,2)" ! *zN 
um$;:TAB(26);"!"zLIB1$;TAB(60);"!"; 

IF Co=1 THEN TD#=TD#+MT#:LPRI 
NT USING US$;MT#; 

LPRINT TAB(73);°!"; 

IF Co=2 OR Co=4 THEN LPRINT U 
SING U$;MT#; 

LPRINT TAB(86) “!";:LPRINT USIN 


G U$;So#;::LPRINT TAB(99) “!"; 

IF Co=3 THEN TCB#-TCB#+MT#:LPR 
INT USING U$;MT#; 

IF CO=4 THEN LPRINT USING US$ 
7 MT#; 

LPRINT TAB(112) "l':LPRINT USI 
NG U$;CB#;:LPRINT *!"; 

IF CVI(ZPoin$) THEN LPRINT"*"; 

LPRINT TAB(127)"! 

IF Co=2 THEN TC#=TC#+MT# 

IF Co=4 THEN TC#=TC#+MT#:TCB#=T 
CB#-MT# 

IF Co=2 OR Co=3 THEN VENT#(CV 
1(ZVent$))=VENT#(CVI(ZVent$))+MT# 

IF CVI(ZPoin$) THEN suite 

IF co=1 THEN SBT#-SBT#-MT# 

IF co=2 THEN SBT#-=-SBT#+MT# 

IF co=3 THEN SCT#-=-SCT#-MT# 

IF co=4 THEN SBT#=-SBT#+MT#:SCT# 
=SCT#+MT# 

suite: 

RETURN 

AffCons: 

GET 1,NumF:MOVETO 80,85:PRINT 
LEFT$(ZDA$,2)+"/"+MID$(zDAS$,3,2) 
+"/"+RIGHTS$(ZDAS$,2) 

MOVETO 232,85:PRINT zNum$:MO 
VETO 80,109:PRINT zLib1$:MOVE 
TO 80,133:PRINT zLib2$:MOVETO 
80,157:PRINT USING U$;CVD(zM 
on$) 

MOVETO 220,229:PRINT USING U 
$;CVD(zSol$):MOVETO 220,253:PR 
INT USING US$;CVD(zCBS$) 

code=CVI(zCode$):BUTTON code+11, 
2:1F CVI(ZPoin$) THEN BUTTON 
11,2 

IF CVI(ZVent$) THEN BUTTON CV 
I(ZVent$),2 


RETURN 








Alexandre Avrane 


Allô ProDOS ? : 


roisième volet de notre 
découverte de ProDOS 
(voir "ProDOS à 
l'essai" -Pom's 12- et 
"Pot-pourri ProDOS" -Pom's 
16-), nous allons aborder la 
programmation en assembleur 
sous ProDOS. Nous verrons les 
protocoles de co-résidence de 
plusieurs programmes et 
l'adjonction de nouvelles 
commandes à ProDOS avec deux 
applications pratiques : un 
TDUMP de visualisation du 
contenu des fichiers, et un INIT 
de formattage des disquettes 
évitant d'utiliser l'utilitaire Filer. 


Sous DOS 3.3, Apple n'avait que 


très peu documenté les 
conventions d'appel en 
assembleur les méthodes 


d'accès au File Manager n'étaient 
même pas effleurées par le 
manuel du DOS ! Résultats : les 
nombreux aventuriers qui 
s'étaient hasardés à explorer le 
système avaient chacun emprunté 
une approche différente, et le 
DOS s'est vite retrouvé truffé de 
"patches" et de modifications 
internes. Une telle situation a vite 





Pgm INIT.CODE0.S 


(Assembleur Blg Mac) 
1 LST OFF 
is 
3 
drsréennrannnraséasannasénséntesenestés 
S « L} 
6" PRODOS INIT 2 
7% * 
CECLLLELLELLLELLELELLEEEEEEETECELELETELELET] 


PURCLELLELEELEE LS EZELTELELLIIIIIILIIII I... 
11 * Copyright (C) 1985 Alexandre Avrane * 
12 * * 
* Modifié: 27/04/85 
14 * Créé: 10/03/85 
* 
* 


* 
* 
* 

Assembleur: Big Mac Li 

PURE LELLLLELLLLELLLLEEEEEEEEET TETE PET PET 

20 * Objectifs: 

21 * === 


22 * Initialisation d'une disquette ProDOS 
sans utiliser le Filer 


24 * Syntaxe: 


découragé les programmeurs de 
Cupertino d'envisager le 
développement d'un DOS 3.4 car 
celui-ci, ayant nécessité un 
ré-assemblage et donc la 
modification de la plupart des 
adresses des routines, aurait 
rendu incompatible un très grand 
nombre de programmes. 


Fini le 
"bidouillage" ! 


Une philosophie différente existe 
pour ProDOS : le "Technical 
Reference Manual” décrit en 
détail les points d'entrée de 
ProDOS et du Basic.System mais 
repose sur un double enga- 
gement : celui des programmeurs 
de n'utiliser que les points 
d'entrée officiels, de ne pas 
appeler directement les routines 
internes, ni occuper les places 
libres en mémoire, celui d'Apple 
de conserver la compatibilité de 
ses points d'entrée avec les 
versions futures de ProDOS. 


Plusieurs versions de ProDOS 
ont déjà été commercialisées : 1.0 


25 * 
26 * INIT /<nom volume> [,S <slot>] 
[(,D <drive>] 
27 
28 * Environnement: ProDOS + Basic System 


29 * Compatibilité: ProDOS B.4, 1.0, 1.0.1 et 
suivants 

30 * Intégration: 
System 


commande externe Basic 


Organisation interne: 
=======seusssss.« 

1- Initialiseur (géré par CMDLOAD) 
-cherche place disponible en RAM 
-reloge les modules suivants 
chaîne cde externe à ProDOS 
Contrôleur de commande 

-vérifie la syntaxe de la commande 
-sinon err où envoi vers autre cde 
3- Formatteur physique 

-formatte pistes en 16 secteurs 
-contrôle le formattage 

4- Formatteur logique 

-initialise les blocs au format 
logique ProDOS 


"1 
œ 
ns 
» 
ù 


47 * Link 
48 * mmm= 


49 * Ce source d'assemblage doit e “tre 


en janvier 1984, 1.0.1 en juillet 
1984: on parle d'une version 
prochaine gérant le futur modem 
d'Apple Attention: la version 
"B.4" que possède certains 
lecteurs de Pom's, distribuée aux 
développeurs de logiciels à partir 
de janvier 1983, n'est pas 
officiellement supportée par 
Apple (les fichiers ProDOS et 
Basic.System, appellés Pro. 
Kernel et Bas.Interp, ont depuis 
été corrigés et réassemblés). 


Gestion de la 
mémoire 


Jusqu'à présent, les programmes 
assembleurs étaient généralement 
placés en page 3 ($300-$3CF) ou 
juste au-dessous des trois buffers 
du DOS en $9600. D'où une 
joyeuse cacophonie lorsqu'il 
s'agissait de faire résider 
plusieurs d'entre eux en 
mémoire, ou d'utiliser simul- 
tanément plus de trois fichiers ! 

Cette anarchie est révolue sous 


ProDOS les programmes 
devront pouvoir co-exister en 





chaîné avec le fichier 

50 * des blocs du boot ProDOS (correspondant 
à la version 

51 * désirée) par le programme INIT.LINK, 
puis avec CMDLINK. 


82 * 

53 * Source (Big Mac): INIT.CODEO.S 
54 * Objet: INIT.CODEO0 
55 * Link: INIT.LINK 


56 * Module exécutable: INIT.CODE 


58 * Constantes d'assemblage 


59 + =enmmnmmmmmsssss= 


60 GAP1 - 255 début de piste 

61 GAP2 = 5 entre champs 
adresse & données 
(5-10) 

62 GAP3 = 25 entre secteurs 


(16-28)par défaut 
nb essais pour 
une piste 
caractère blanc 


66 * Adresses utiliséees: 
67 * munasz=sess-mes= 
68 PTR - $48 
69 HIMEM = $73 


vecteur temporair 


71 PRINTERR = $BEOC affiche erreur 
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appels en assembleur 


mémoire, quel que soit le nombre 

de fichiers ouverts. A cet effet, ils 

disposent d'une carte des pages 

RAM libres (située en 

$BF58-$BF6F), et doivent suivre 

le protocole suivant : 

o les programmes courts et 
temporaires (chargés puis 
exécutés qu'une seule fois) se 
placent en $300 ; 

° les programmes temporaires ne 
faisant pas d'appels à ProDOS 
doivent examiner la carte de la 
mémoire et se placer sur les 
plus hautes pages disponibles ; 

o en règle générale, les 
programmes devront également 
marquer sur cette carte les 
pages 6502 qu'ils s'allouent, 
afin de ne pas être écrasés par 
les programmes suivants ou 
par ProDOS lorsqu'il gère ses 
buffers. 


La carte de la mémoire contient 
24 octets, soit 192 bits ; chacun 
représente le status d'une des 
pages $00 à $BF, le bit est à 1 si 
la page est libre. Les pages $00 à 
$02 sont toujours marquées 
occupé, ainsi que les pages $9A à 


72 XTADDR = $BE50 sortie cde extern 

73 XLEN E $BES52 long cde externe 

74 XCNUM = $BES53 n° de cde ProDOS 

75 PBITS - $BE54 bits d'autori- 
sation paramètres 

76 FBITS = $BE56 bits des para- 
mètres trouvés 

77 BI_SLOT = $BE61 slot commande 

78 BI_DRIVE = $BE62 drive d'une cde 

79 VPATHL = $BE6C vecteur nom volum 

80 BADCALL = $BE8B convertit erreurs 
MLI->Basic System 

81 MLI = $BF00 entrée MLI vers 
ProDOS Kernel 

82 DATETIME = $8F06 appel à routine 


de l'horloge 


83 SYSERR = $BFOF code erreur MLI 


84 DATE = $Br90 date/heure sur 4 
octets 

85 

86 WAIT - $FCASB attente 

87 RTS = $FF58 contient un RTS 


89 * Macro-instructions: 
90 * msssassssss=ss==-- 
91 WRITE MAC sécriture 


physique sur disk 


92 STA $C08D,X (x = slot x $10) 
93 CMP $CO8C,X 
94 <<< 
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$BF lorsque le Basic.System est 
présent. 


A l'origine, une routine 
GETBUFR, située en $BEFS, 
devait pouvoir être appelée pour 
obtenir le numéro de la première 
page disponible. Celle-ci a 
disparue des versions actuelles de 
ProDOS, probablement pour des 
raisons de place. 


Heureusement, son fonction- 
nement a pû être reconstitué et 
vous la trouverez au sein du 
programme CMDLOAD qui sera 
détaillé par la suite. 

En entrée de cette routine, 
l'accumulateur doit contenir le 
nombre de pages de $100 octets 
désirés et le registre Y doit être 
non nul si le programme est 
permanent et doit donc marquer 
les pages comme définitivement 
occupées. 


En sortie, la retenue (carry) est à 
1 s'il n'existe pas de groupe de 
pages consécutives libre ; sinon 
l'accumulateur contient le numéro 
de la première page du groupe. 
Auparavant, nous devons parler 
protocole : 





délai 2 cycles 


96 NOP 
97 <<< 
98 DELAI3 MAC délai 3 cycles 
99 JMP *+3 
100 <<< 
101 DELAI4 MAC sdélai 4 cycles 
102 >>> DELAI2 
103 >>> DELAI2 
104 <<< 
105 DELAI6 MAC :délai 6 cycles 
106 >>> DELAI2 
107 >>> DELAIZ2 
108 >>> DELAI2 
109 <<< 
110 DELAI7 MAC délai 7 cycles 
111 PHA 
112 PLA 
113 <<< 
114 DELAI12 MAC sdélai 12 cycles 
115 JSR RTS 
116 <<< 
117 
118 ORG $2100 (CMDLOAD de $2000 
à 520FF) 
119 
DETRELLELLLELELLELLELLLLLLLLLESLLSLLLELLLLLLLLL ES 
121 * 1 - INITIALISEUR * 


122 nannnnnnananaanaaeanet aan AR 


123 


Mise en place d'un 
programme 
assembleur 


Plusieurs étapes permettent 
d'intégrer un programme dans 
l'environnemnt existant. Comme 
elles sont relativement 
complexes, elles ont été reprises 
en majorité dans le programme 
CMDLOAD qui initialise les 
commandes additionnelles (égale- 
ment appelées externes) de 
ProDOS : 


1)se charger en $2000. Cette 
adresse est supposée libre car les 
programmes assembleurs doivent 
être chargés en tout début, avant 
l'exécution d'un programme 
‘Applesoft par exemple ; 
2)d'abord vérifier le système 
d'exploitation: si celui-ci n'est 
pas ProDOS, autant éviter de 
poursuivre car on court à la 
catastrophe ; 

3) vérifier qu'il n'existe pas de 
fichiers ouverts car ProDOS gère 
la carte de la mémoire pour ses 





124 * Doit débuter sur une frontière de page 
6502 

125 

126 * 2.1 - Vérifie que la commande externe 
est la nôtre 

127 * mcm mmmmmmmmm——— 

128 START : * 

129 CLD 

130 

131 * Conventions de link avec CMDLOAD: 

132 LDA #>FIN+$100 

133 LDA #>LONG 

134 V_OLDCMD LDA RTS 

135 

136 * Conventions de link avec INIT.LINK: 

137 VC_BOOT2 LDA BOOT _BL2 convention pour 
link avec blocs 0/1 ProDOS 


snécessaire 


138 

139 

140 CELELLELLELLLLLLLLELLLLLL LL LL LL LLLLLLLLLLLEL, 

141 * 2 - CONTROLEUR DE COMMANDE # 

142 LÉELELLELLLELLLILLLL LILI LLLLLLLLLLLLLLLLLELE.E) 

143 

144 LDA VPATHL pointeur vers la 

commande actuelle 

145 STA PTR 

146 LDA VPATH1+1 

147 STA PTR+1 

148 + (si lecture en $200, on devrait éviter 
les caractères blancs) 


32 


propres besoins en buffer. Si, 
d'autre part, un programme 
Applesoft a déjà créé des 
variables chaînes de caractères, 
celles-ci seront inutilisables et il 
est préférable d'effectuer un 
CLEAR après l'initialisation ; 

4) appeler la routine ci-dessus de 
réservation en mémoire, 


S)se reloger sur les pages 
allouées précédemment. Si votre 
programme est directement 
relogeable (pas de JSR, JMP, 
LDA ou STX internes par 
exemple), il vous suffit d'appeler 
la routine MOVE du moniteur. 
Sinon, pas de problème, une 
routine de CMDLOAD vous 
mâchera le travail en respectant le 
protocole suivant : 


o la partie à reloger débute en 
$2100 

e l'octet haut de l'adresse de fin 
de votre programme, incré- 
menté de 1, se trouve en $2102 

e l'octet haut de la longueur de 
votre programme se trouve en 
$2104 

e l'adresse de la commande 
externe ProDOS précédente est 
en $2106.$2107. 
programme devra y aller si la 
commande ProDOS n'est pas 
pour lui 

o la partie codes instructions 
6502 est séparée de la partie 





150 LDY #1 

151 COMPAR  LDA (PTR),Y obtient un caract 
152 CMP COMMAND-1,Y c'est "INIT" ? 
153 BNE NO CMD non 

154 INY 

155 CPY #4+1 

156 BCC COMPAR 


158 * 2.2 - Demande à ProDOS d'examiner la 
suite de la commande 


160 DEY 

161 DEY 

162 STY  XLEN stocke long - 1 

163 LDA #0 

164 STA SYSERR initialise code 
erreur MLI 

165 STA  XCNUM indique cde exter 

166 LDA #%00000001 

167 STA PBITS non de fichier 
(volume) autorisé 

168 LDA #%00000100 

169 STA PBITS+1 slot & drive 
autorisés 

170 

171 LDA PRINTERR+1 détourne le 
vecteur erreur 
(pas de préfixe) 

172 STA SAVE _ERR 

173 LDA PRINTERR+2 

174 STA SAVE _ERR+1 


vecteur de retour 
après examen 


175 V_SUITE LDA SUITE 


176 LDA V_SUITE+1 


Votre 


données (constantes + 
variables) par un BRK ($00). 
La partie code sera 
ré-assemblée, la partie données 
sera simplement recopiée. 
Attention : des instructions du 
type : 
PARTIE  LDA #<PARTIEZ (avec 
PARTIE2 quelque 
part dans votre 
programme) 
LDY #>PARTIE2 
sont à banir car non relogeables, 
et devront être remplacées par : 


PARTIE1  LDA PARTIEZ 
LDA PARTIE1+1 
LDY PARTIE1+2 


Une sixième étape est nécessaire 
si vous souhaitez raccorder votre 
programme à ProDOS comme 
une commande externe: d'abord 
sauvegarder l'adresse de la 
commande externe précédente (en 
$BE06.BE07), puis placer la 
vôtre à la place. Bien sûr, la 
même chose doit s'appliquer si 
vous vous raccordez ailleurs, à 
l'Ampersand (&) par exemple : 
vous devez toujours supposer 
que vous êtes le deuxième 
programme à vous connecter, et 
sauver l'ancien vecteur en 
conséquence. 


Nous supposerons désormais que 
votre programme est une 





177 STA XTADDR indique à ProDOS 
où revenir après 

178 STA PRINTERR+1 indique où 
revenir si erreur 

179 LDA V_SUITE+2 

180 STA XTADDR+1 

181 STA PRINTERR+2 

182 CLC sindique à ProDOS 
que c'était pour 
nous 

183 RTS 


184 

185 NO CMD SEC :cde pas pour 
nous 

(V_OLDCMD+1) alimenté par 


CMDLOAD 


186 JMP 


187 

188 * 2.3 - Retour d'analyse de la commande 
189 © —— “mm. 
190 SUITE - * 


191 LDX SAVE_ERR replace le vecteur 
d'erreur 

192 STX PRINTERR+1 

193 LOX SAVE_ERR+1 

194 STX PRINTERR+2 

195 

196 CMP #0 si pas d'erreur, 
on re-formatte 

197 BEQ SUITE_2 

198 CMP #6 path not found 
autorisé 

199 BEQ SUITE _2 

200 CMP #8 i/0 error 
autorisé 

201 BNE GO _BAD2 





commande externe, c'est à dire 
directement accessible au clavier 
en mode direct, ou par PRINT 
CHRS$(4) en mode différé dans 
un programme. 


Utilisation de 
CMDLOAD 


Si la lecture des derniers 
paragraphes vous a rendu tout 
pâle, et que vous vous dites que, 
tout compte fait, l'empirisme du 
DOS 3.3 était bien agréable, dites 
vous que la localisation absolue 
en mémoire des programmes est 
très égoïste et peu réaliste avec la 
venue prochaine de processeurs 
16 bits sur Apple II. De plus, le 
module CMDLOAD vous fait tout 
le travail ! 

CMDLOAD est destiné à être 
utilisé par tout programme 
désireux de se connecter à 
ProDOS. Les deux exemples 
ci-dessous (TDUMP et INIT) ne 
sont destinés qu'à illustrer son 
utilisation. 


Chargez par BLOAD d'abord 
votre programme en $2100 puis 
exécutez CMDLOAD en $2000, 
ou utilisez le programme 
CMDLINK qui fusionne les deux 
en un fichier ProDOS de type 
binaire, directement exécutable 





par "-" (smart Run), par exemple 
202 SUITE 2 LDA BI_SLOT slot demandé 

203 ORA #$5c0 

204 STA V_CARD+2 

205 LDA #528 no device 

206 V_CARD LDX $COFF si pas un Disk 11 
207 BEQ LIT VOL 


208 

209 GO BAD JSR BADCALL en entrée: Acc= 
code erreur MLI 
210 GO_BAD2 JMP PRINTERR 

211 

212 * 2.4 - Extraction du nom du volume 

213 
214 LIT VOL = # 


* 


(PTR pointe déjà 
vers VPATH1) 


215 LDY #0 

216 LDA (PTR),Y longueur du nom 
du volume 

217 TAX 

218 DEX 

219 CPX #$10 

220 BCS SYNTAX nom de volume < 
16 caractères 

221 STX NOM_LG 

222 INY 

223 LDA (PTR),Y 

224 CMP +#'/* 

225 BNE SYNTAX le ler caractère 
doit être "/" 

226 INY 

227 LDA (PTR),Y le ler caractère 


doit être une 
lettre 
228 LIT CAR CMP J'A' 
229 BCC SYNTAX 
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à partir de votre programme de 
STARTUP. 


Dans ce dernier cas, votre 
programme doit s'appeler 
xxx. CODE, et le fichier résultant 
s'appellera simplement xxx. 
(Apple a créé sous ProDOS des 
fichiers de type “commande 
externe", numérotés $FO, mais 
ceux-ci ne sont pas exécutables 
par BRUN ou "-"… quel in- 
térêt ?) 

CMDLOAD peut générer les 
messages d'erreur : 


FILE(S) STILL OPEN (aucun 
fichier ne doit être ouvert pour la 
mise en place d'une commande) ; 


PROGRAM TOO LARGE (s'il 
ne reste pas suffisamment de 
pages libres en mémoire pour 
reloger la commande). 


Fonctionnement 
des commandes 
externes 


Lorsque ProDOS rencontre une 
commande qu'il ne connaît pas, il 
appelle l'adresse EXTRNCMD 
($BEO06). En temps normal, 
celle-ci contient un JMP vers une 
instruction RTS. Mais il pointe 
sur le début de votre programme 
($2100) si celui-ci a été initialisé 


230 CMP #'2'+1 

231 BCS SYNTAX 

232 LIT_NOM STA NOM VOL-2,Y 

233 DEX 

234 BEQ GO GO fin du nom 

235 INY 

236 LDA (PTR),Y caractère suivant 
237 CMP $'.' "." est autorisé 
238 BEQ LIT _NOM 

239 CMP 4'0' 

240 BCC LIT_CAR 

241 CMP #'9'+1 

242 BCC LIT_NOM c'est un chiffre 
243 BCS LIT CAR 

244 SYNTAX LDA #$40 

245 BNE GO_BAD =3m 


246 
247 * 2.5 - Formattages 
248% 


249 GO_Go JSR FORMAT _P format. physique 


250 BCS GO _BAD 

251 JSR FORMAT_L format. logique 
252 BCS GO _BAD 

253 RTS 

254 

255 
PETHELLLLELLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLEET)] 
257 * 3 - FORMATTEUR PHYSIQUE * 


258 LELLLLLLLLLLLLELLLLEEEEEEEEEEEEE EEE LT LL.) 
259 

260 * 3.1 - Sélection slot & drive 

261 # ---—-““——— 

262 FORMAT _P = » 

263 LDA BI_SLOT 
264 ASL 


no slot: $0s 
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par CMDLOAD. 


Votre programme doit vérifier 
qu'il s'agit bien d'une commande 
qui lui est destinée. La chaîne de 
caractères a été placée par 
ProDOS dans le buffer d'entrée 
en $0200 (avec éventuellement 
les caractères blancs non 
significatifs qui ont pû être 
saisis), et ses huit premiers octets 
(sans caractère blanc) se trouvent 
dans le buffer dont l'adresse est 
pointée par VPATHI1 ($BE6C- 
BE6D). L'oubli de ce contrôle 
détruirait la chaîne d'interception 
et, par exemple, aucune 
instruction Applesoft ne serait 
disponible en mode direct... 

S'il ne s'agit pas de votre 
commande, effectuez un saut à 
l'adresse contenue à l'adresse 
(relogée) $2106.2107 avec la 
retenue (carry) à 1. 


Extraction des 
paramètres par 
ProDOS 


Si votre commande ne nécessite 
aucun paramètre, OU Si vous 
préférez les extraire vous même, 
placez un $00 en PBITS et 
PBITS+1 ($BES54-BESS) et 
retournez à ProDOS par un RTS 
avec la retenue à zéro. 


265 ASL 
266 ASL 
267 ASL 
268 STA FSLOT $s0 
269 ORA BI _ DRIVE 40ss300dd 
(drive = 1 ou 2) 
270 TAX 
271 
272 LDA $CO8A,X sélectionne drive 


(x = 4305330004) 
273 
274 * 3.2 - Recalibre la te “te de lecture 
275 * = m—mmm——m————— 
276 JSR RECALIBR 
$co80,x désactive toutes 
les phases 
$co82,x 
$co84,x 
$co86,x 


282 * 3,3 - Boucle sur les 35 pistes 


284 LDA #GAP3 espacement 
inter-secteurs 
par défaut 

285 STA GAP3 BIS 

286 LDA +#$80 

287 STA OP MLI on appelera 


ProDOS en lecture 
nombre d'essais 
avant abandon 


288 LOOPTRK LDA #RETRY 


289 STA RETRYCNT 

290 INC GAP3 BIS Vitesse lecteur 
on commence par 
le secteur 0 


291 INITMORE LDA #0 


Dans le cas contraire, il faut 
indiquer à ProDOS quels sont les 
paramètres autorisés en 
alimentant les bits de PBITS et 
PBITS+1 : 


$8000 demande de concaténer le 
préfixe actuel avec le nom 
de fichier saisi 

$4000 seul un numéro de slot est 
autorisé (PR# ou IN#) 

$2000 commande en mode 
différé uniquement 
(OPEN READ...) 

$1000 nom de fichier autorisé 

$0800 création automatique du 
fichier saisi s'il n'existe 


pas 
$0400 paramètre T autorisé 
$0200 second nom de fichier 
obligatoire (RENAME) 
$0100 nom de fichier obligatoire 
$0080 à $0001 autorise respec- 
tivement les paramètres 
A, B, E, L, @, S/D, F et 
R 


Il faut également indiquer à 
ProDOS que vous êtes une 
commande externe en stockant un 
$00 en XCNUM ($BES3), 
l'adresse où ProDOS devra vous 
rappeler après l'analyse des 
paramètres en XTRNADDR 
($BESO-BES1), la longueur 
diminuée de 1 du nom de votre 
commande en XLEN ($BES52) 
(par exemple 3 pour la commande 


292 STA FSECTOR 

293 SEI 

294 JSR INITRACK format. physique 

295 BCS ENDINIT write-protect 

296 

297 JSR VER_TRK vérifie 1g piste 

298 CLI 

299 BCC GOCHECK ok longueur 

300 DEC GAP3 BIS on dimimue GAP3 
et on recommence 

301 LDA GAP3 BIS 

302 CMP #8 abandon si - de 8 
oct intersecteurs 

303 BCS  INITMORE 

304 10 _ERR LDA #$27 1/0 error 

305 SEC 

306 BCS ENDINIT = jmp 


308 GOCHECK JSR CHECKTRK vérifie le 


formattage 
309 BCC NEXTTRK 
310 DEC RETRYCNT 
311 BNE INITMORE on refait un 
essai 
312 BEQ 10 ERR =j"p 


314 NEXTTRK LDA FTRACK 


315 INC FTRACK 

316 LDY FTRACK 

317 JSR ARM MOVE place bras lectur 
318 CMP #35 35e piste ? 

319 BCC LOOPTRK pas encore 

320 CcLc 

321 ENDINIT LDY $CO88,X arrête le moteur 
322 EXIT RTS 


53 


INIT). Enfin, retournez à 
ProDOS par un RTS avec la 
retenue à zéro. 


ProDOS se chargera d'examiner 
les paramètres, et de générer 
éventuellement les messages 
d'erreur de SYNTAX, RANGE 
ou PATH NOT FOUND (si des 
paramètres slot et drive ou un 
nom complet de fichier avec 
l'indication du volume ont été 
saisis, ProDOS lit les disques en 
ligne pour créer ses pointeurs 
internes entre volume logique et 
lecteur physique). 

Si tout se passe bien, ProDOS 
rappelle votre programme à partir 
de XTRNADDR. Les paramètres 
effectivement trouvés sont 
indiqués par un bit de présence en 
FBITS et FBITS+1 ($BE56 
-BE57), qui reprend le découpage 
de PBITS. La valeur effective des 
paramètres est stockée 
respectivement en : 


$BES8-BES59 paramètre A 
$BESA-BES5C paramètre B 
$BESD-BESE paramètre E 
$BESF-BE60 paramètre L 
$BE61 paramètre S 
$SBE62 paramètre D 
$SBE63-BE64 paramètre F 
$BE65-BE66 paramètre R 
VVOLM $BE67 paramètre V 
(ignoré par les commandes 
ProDOS actuelles) 


323 * (en sortie: c=0 ==> formattage ok, 

324 * c=1 A=27 ==> 1/0 error, 

325 * A=2B ==> write protect) 

326 

327 * 3.4 - Ecriture de l'en-tête de piste 


926% =“ mmmmmmmmmmnne 

329 INITRACK = * 

330 LDOY #5 initialise la 
vérif de 1g 

331 LDA FTRACK 

332 PHA 

333 JSR VER_4_4 

334 PLA 

335 EOR #1 

336 LDY #9 

337 JSR VER_4_4 

338 

339 LDA $C089,X moteur en marche 

340 

341 SEC 

342 LDA #$2B 

343 LDY $C08D,Xx mode écriture 

344 LDY $CO8E,X 


345 * 

346 * À partir d'ici chaque cycle-machine 
compte: 

347 * 4 cycles-machine sont nécessaires pour 
écrire 1 bit. 

348 * 40 cycles x (GAP1 + 16 x (GAP2 + 
GAP3)) 

349 * + 32 cycles x 16 x (14 + $157 + 7) 

350 *(Les branchements relatifs doivent rester 
sur la me “me page) 

351 * 

352 BMI EXIT 


disq protégée 


VLINE  SBE68-BE69 paramètre @ 
RVTYPE $BE6A paramètre T 
VIOSLT $SBES58-BES59 slot PR#/IN# 
VPATH1 SBE6C-BE6D vecteur vers 
nom fichier 
VPATH2 $SBE6E-BE6F vecteur vers 
second fichier 


Ces deux derniers vecteurs 
pointent sur un buffer qui 
contient d'abord la longueur du 
nom sur un octet, puis les 
caractères du nom (bit fort à 
zéro). Si le préfixe a été demandé 
(premier bit de PBITS), le 
chemin complet d'accès au fichier 
y est stocké. 


Votre programme est maintenant 
libre de poursuivre son 
exécution. 


Appels à ProDOS 
en assembleur 


Sous DOS 3.3, il était possible 
d'envoyer des commandes en les 
préfixant par un CTRL-D et en 
les envoyant à la routine de sortie 
des caractères (COUT en 
$FDED). 

Sous ProDOS, en revanche, il 
faut stocker la chaîne de 
caractères dans le buffer d'entrée 
en $0200 (avec les bits forts à 1), 
la faire suivre par un 
retour-chariot ($8D) puis appeler 





353 >>> DELAI? 

354 LDA 4#$FF 

355 STA S$CO8F,X d'abord un octet 
à $SFF sur 40 cycl 

356 CMP $CO8C,X 

357 LDY  #GAP1 

358 >>> DELAI4 

359 >>> DELAI4 

360 JSR GAPWRITE puis plusieurs 


autres pour 
synchroniser 
361 
362 * 3.5 - Ecriture de la zone adresse 
363 * ------ 
364 LOOPSECT LDA #$D5 écrit D5 AA 96 


365 JSR CONV_4E3 sur 32 cycles 

366 LDA +$AA 

367 JSR CONV_4E3 

368 LDA 4596 

369 JSR CONV_4E3 

370 

371 LDA #1 # de vol toujours 
1 sous ProDOS 

372 NOP 

373 JSR CONV_4_4 

374 LDA FTRACK 4 de piste 

375 JSR CONV_4_4 

376 LDA FSECTOR t de secteur 

377 JSR CONV_4_4 

378 

379 LDA FTRACK calcul du contrôl 
de somme 

380 EOR FSECTOR 

381 EOR #1 


382 PHA 


DOSCMD en $BE03. La petite 
routine ci-dessous fournit en 
exemple le catalogue du préfixe 
courant : 


LDY #0 
LDA CMD, Y 
STA $200,Y 
INY 

CMP #$8D 
BNE LOOP 
JMP $BEO3 
ASC "CAT" 
DFB $8D 


Cette méthode ne fonctionne bien 
sûr que si le Basic.System est 
actif. On peut heureusement 
appeler directement le noyau de 


LOOP 


CMD 


ProDOS, avec la syntaxe 
générale : 
JSR $BFO00 
DEB FONC  ; fonction 
demandée 
DA PARM  ; adresse table 
paramètres 
BCS ERROR ; suite 
exécution 


En retour, la retenue est à 1 si une 
erreur s'est produite et l'accu- 
mulateur contient la valeur du 
code erreur. 


Les tables de paramètres sont 
différentes pour chaque fonction 
et débutent toujours par un octet 
indiquant le nombre en 
hexadécimal de paramètres 
suivants ; voici leurs fonctions 


383 LSR 

384 ORA SARA on le transforme 
en nibble valide 

385 >>> WRITE et on l'écrit 

386 PLA 

387 ORA #$AA 

388 JSR CONV_4E2 2e nibble du 
contrôle de somme 

389 

390 LDA #$DE écrit DE AA EB 

391 JSR CONV_4E3 

392 LDA #$AA 

393 JSR CONV_4E3 

394 LDA 4#$EB 

395 JSR CONV_4E3 


396 
397 * 3.6 - Ecriture de la zone de données 
398 à --—mmmemmmmmmms.— 


399 LDY  #GAP2 octets entre 
adress et données 

400 JSR GAP_L3 

401 

402 LDA #$D5 puis 1D5 AA AD 

403 JSR CONV_4E3 

404 LDA #$AA 

405 JSR CONV_4E3 

406 LDA #$AD 

407 JSR CONV_4E3 

408 

409 LDY #$56 on écrit $56 
nibbles sur 32 
cycles 

410 BNE DATA_L3 = jp 


411 DATA _L2 >>> DELAI6 


412 DATA_L3 LDA #$96 $96 = $00 après 
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(reportez vous à la bibliographie 
pour en connaître la description, 
ainsi que les codes erreurs) : 


Voir liste 1 = 


Voici, à titre d'exemple, une 
routine fournissant les attributs 
du fichier "ProDOS" sur le 
préfixe courant : 


Voir liste 2 = 


Le principal utilisateur de ces 
appels au noyau de ProDOS est le 
Basic.System ; toutes les fonc- 
tions d'accès aux fichiers sont 
officiellement disponibles via la 
page globale $BE. Voilà qui 

t simplifie la vie, car la routine 
ci-dessus devient : 


Voir liste 3 = 


ProDOS étant indépendant du 
type de lecteur de disque 
employé, les fonctions ci-dessus 
parviennent finalement à un 
Device Driver ("gérant d'unité"?) 
spécifique. Pour la petite histoire, 
quatre fonctions sont possibles: 
STATUS fournit le nombre total 
de blocs du support et son status 
de protection contre l'écriture, 
READ et WRITE n'appellent 
aucun commentaire, FORMAT 
n'est malheureusement pas 
disponible pour le Disk II 
d'Apple (… sinon pourquoi 
proposerait-on un utilitaire de 





trans-codage 


413 >>> DELAI6 

414 >>> DELAI4 

415 >>> WRITE 

416 DEY 

417 BNE DATA_L2 

418 BEQ DATA _LS =jmp 


419 

420 DATA_L4 >>> DELAI2 puis les $100 
octets suivants 
421 DATA L5 >>> DELAI12 total: $156, = 


. $100 octets après 


codage 

422 >>> DELAI4 

423 >>> WRITE 

424 DEY 

: 425 BNE DATA _L4 

426 

427 LDA #$96 contrôle de somme 
des données 

428 >>> DELAI2 

429 JSR CONV_4E3 

430 

431 LDA #$DE écrit DE AA EB FF 

432 JSR CONV_4E3 

433 LDA #$AA 

434 JSR CONV_4E3 

435 LDA 4$EB 

436 JSR CONV_4E3 

437 LDA 4#$FF 

438 JSR CONV_4E3 

439 

440 LDY GAP3 BIS octets sync 
inter-secteurs 

aai JSR GAP_LO 


442 


Liste 1 


Liste 2 


JSR $BF00 
DFB $C4 


JSR SBE8B 
JMP $SBEOC 
PARM DFB 10 

DA PATHNM 
DFB 0 

DFB 0 

DA $0000 
DFB 0 

DA $0000 
DA $0000 
DA $0000 
DA $0000 
DA $0000 
DFB $06 

ASC PRODOS' ; 


PATHNM 


Liste 3 


V_PATH LDA PATHNNM 
LDA V_PATH+1 
STA $BEB4+1 
LDA V_PATH:+2 


ERROR 
PATHNM  DFB $06 





fixe une routine de gestion d'interruption masquable (IRQ) 
retrait d'une routine d'interruption 

demande de chargement d'un nouvel interpréteur système 
lecture d'un bloc de 512 octets 

écriture d'un bloc de 512 octets 

appel à l'horloge pour mise à jour date/heure (SBF90-BF93) 
création d'un nouveau fichier 

destruction d'un ancien fichier 

renomme un ancien fichier sous le meme chemin d'accès 
change les attributs d'un fichier (type, lock/unlock,.…) 

lit les attributs courants d'un fichier 

obtient, pour un lecteur physique, le nom du volume monté 
change le préfixe par défaut 

lit le préfixe courant 

ouvre un fichier et retourne un numéro de référence 
spécifie le caractère de fin de champ (normalement $0D) 
lit un ou plusieurs octets à partir de la position courante 
écrit un ou plusieurs octets 

ferme un, plusieurs ou tous les fichiers ouverts 

écrit sur disque les buffers de un ou plusieurs fichiers 
change la position courante de lecture/écriture 

obtient la position courante de lecture/écriture 

change la position de fin de fichier (permet de tronquer) 
obtient la position de fin de fichier 

change l'adresse du buffer d'un fichier 

obtient l'adresse du buffer d'un fichier 


; appelle ProDOS 

; get_file_info 

; table des paramètres 

; erreur ? 

; 200 : fini 

; traduit le code erreur ProDOS en code erreur Basic.System 
; gère l'erreur et quitte 

; 10 paramètres suivent... 

; en entrée le nom du fichier, maintenant en sortie : 

; bits d'accès en lecture/écriture/destroy/rename/sauvegarde 
; type de fichier (programme Applesoft, binaire, texte, etc.) 
; type auxiliaire (par exemple adresse de chargement) 


; type de stockage (sous-catalogue ou niveau des blocs d'index) 


; nombre de blocs utilisés 


; date de dernière modification (bits = AAAAAAAMMMMIIIJJ) 
; heure de dernière modification (bits = HHHHHHHHMMMMMMMM) 


; date de création 

; heure de création 

; longueur du nom 
avec bits forts à zéro 


; instruction pour relocation d'adresse 

; pointe vers le nom de fichier. 

; et le stocke sur la table des paramètres (SBEB4-BECS) 
; code de get file info 

; Basic.System appelle ProDOS avec sa table 

; erreur ? 

; non : fini, les paramètres retournés sont en $BEB7-BECS 
; Basic.System va gérer l'erreur 

; longueur du nom 

; avec bits forts à zéro 
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formattage dans cet article ?). De 
toute manière, il est hautement 
déconseillé de l'appeler 
directement car, d'une part les 
fonctions READ BLOCK et 
WRITE _BLOCK de ProDOS 
suffisent amplement, d'autre part 
le Device Driver se trouve dans la 
partie haute de la carte langage 
(sur l'emplacement du moniteur 
de la ROM), donc peu accessible 
et il ne vous pardonnera jamais 
les erreurs. 


Première 
application : 
TDUMP 


Si on passait aux travaux 
pratiques ? Pour s'échauffer, 
abordons la commande TDUMP ; 
elle fournit sur l'unité courante de 
sortie (écran vidéo ou 
imprimante) un "écorché" en trois 
parties d'un fichier : d'abord la 
position du dump dans le fichier 
(décalage par rapport au début), 
puis l'affichage des codes ASCII 
correspondants (sauf les codes de 
contrôle qui font trop souvent 
délirer les cartes d'interface...), 
enfin la valeur en hexadécimal de 
chaque octet. 


La syntaxe complète est : 


443 * 3.7 - Boucle sur secteur suivant 
CE EEE 


445 INC FSECTOR avec ProDOS les 
secteurs sont 
placés 

446 >>> DELAI4 séquentiellement 
sur la piste 

447 >>> DELAI? 

448 >>> WRITE un dernier octet 
sur 40 cycles 

449 >>> DELAI3 

450 ‘ LDA FSECTOR 

451 CMP #510 

452 BCS FINSECT c'est fini pour 
cette piste 

453 JMP LOOPSECT sinon on 
repart... 

454 

455 FINSECT >>> DELAI7 

456 >>> DELAI7 

457 LDA $CO8E,X remet en mode 
lecture 

458 LDA $CO8C,X 

459 CLC 

460 RTS 


461 

462 * 3.a - Module déplacement bras de lecture 
463% 
464 RECALIBR LDX FSLOT 


465 LDA $C089,X moteur en marche 

466 LDA S$CO8E,X mode lecture 

467 LDA $CO08C,X 

468 

469 LDA #48 prétend être sur 
la piste 48 

470 LDY #0 on veut aller en 
piste 0 


TDUMP <nom fichier> [,S 
<slot>] [,D <drive>] 


Cette commande est applicable 
aux fichiers de tous types, (y 
compris les types SYS) ; les 
fichiers texte à accès direct sont 
également visualisables en 
totalité. Dans un but 
pédagogique, on peut également 
accéder aux sous-catalogues, 
ainsi qu'au catalogue principal du 
volume (par exemple en tapant 
TDUMP /EXAMPLES). 


On peut arrêter momentanément 
l'affichage par une touche 
quelconque, puis définitivement 
par Ctri-Q. 


Afin d'améliorer l'ergonomie, la 
commande adapte automati- 
quement l'affichage sur 40 ou 80 
colonnes selon l'adresse de 
l'unité de sortie (si celle-ci pointe 
sur un slot, l'affichage ou 
l'impression passe sur 80 
colonnes). 


Notre commande, appelée par 
ProDOS (et initialement mise en 
place par CMDLOAD), doit donc 
d'abord demander à contrôler la 
saisie du nom d'un fichier et des 
paramètres S et D éventuels, puis 
rendre la main. En retour, il faut 
ouvrir le fichier, en utilisant le 
buffer brouillon de ProDOS 
(utilisé par les commandes 


471 
472 ARM_MOVE = * 
473 * (en entrée: A=piste actuelle, Y=piste 


désirée) 
474 * (en sortie: FTRACK est mis à jour) 
475 STA A_TRACK 
476 STY D_TRACK 
477 LDA #0 
478 STA ARM_FLAG 
479 LDA A_TRACK 
480 SEC 
481 SBC D_TRACK calcule nb de 


pistes à déplacer 


482 BEQ ARM_LA4 c'est fini 

483 BCS ARM_L2 on continue 
484 EOR #$FF 

485 ADC #1 ajuste résultat 


si sens négatif 
486 ARM_L2 STA ARM_DIFF 


487 ROL ARM_FLAG 

488 LSR A_TRACK 

489 ROL ARM_FLAG 

490 ASL ARM FLAG 

491 LDY ARM_ FLAG 

492 ARM_L3  LDA ARM_TAB,Y 

493 JSR PHASE phase à activer 

494 LDA ARM_TAB+1,Y prend la phase 
suivante 

495 JSR PHASE 

496 TYA 

497 EOR #2 

498 TAY 

499 DEC ARM _DIFF 

500 LDA ARM_DIFF 

501 BNE ARM_L3 


502 ARM_L4 LDA D_TRACK 





temporaires telles que CATALOG 
et pointé par HIMEM), boucler 
sur une routine qui lit 8 ou 16 
octets à la fois (selon le nombre 
de colonnes), puis formatter une 
ligne qui est envoyée à 
l'affichage. Finalement, n'ou- 
blions pas de fermer le fichier ! 


Le source (Big Mac) s'appelle 
TDUMP.CODE.S et génère 
l'objet TDUMP.CODE. 

Vous pourrez alors, pour mettre 
la commande en place, soit taper : 
BLOAD TDUMP.CODE 

BRUN CMDLOAD 

soit exécuter le programme 
CMDLINK qui créera le fichier 
TDUMP. 


Initialisation d'une 
disquette ProDOS 


Maintenant que nous nous 
sommes mis à table, passons au 
plat de résistance : l'initialisation 
d'une disquette ProDOS. 


Certes, l'utilitaire Filer fourni par 
Apple effectue le même travail. 
Mais : 

1) il interdit de pouvoir initialiser 
une disquette pendant 
l'exécution d'un programme 
puisqu'il faut charger le Filer, 


503 STA FTRACK 

504 LDX FSLOT 

505 RTS 

506 

507 PHASE ORA FSLOT $s0 

508 TAX 

509 LDA $CO081,X active la phase 

510 LDA #$57 

511 JSR MWAIT attend 20 
millisecondes 

512 LDA $C080,X désactive la 
phase 

513 RTS 


514 
515 * 3.b - conversion octet <-> nibble 4+4 
516 * = nn 


517 CONV_4_4 PHA 
518 LSR 

519 ORA #$AA lalclelg 
520 >>> MWRITE 

521 PLA 

522 >>> DELAI6 

523 ORA #$AA 1bldifih 


524 CONV_4E2 >>> DELAI2 
525 CONV_4E3 >>> DELAI2 


526 >>> DELAI7 
527 >>> WRITE 
528 RTS 


529 
530 * 3.c - Module d'écriture des octets 
synchronisés à 40 cycles 
SIL © 
532 GAPWRITE = * en entrée y = nb 
octets à écrire 


533 BNE GAP_L2 jm 
534 GAP_LO BNE GAP L4 =3mp 
535 GAP_L1 >>> DELAI2 
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puis recharger un interpréteur 
comme le Basic.System ; 

2)le Filer est très long (45 
secondes) ; 

3) le Filer ne s'adapte pas à la 
vitesse des lecteurs de 
disques : sur les deux lecteurs 
que je possède, le Filer refuse 
de formatter toute disquette sur 
l'un d'entre eux, estimant que 
la vitesse de rotation est trop 
rapide, alors qu'il est possible 
d'initialiser sans problème 
sous DOS 3.3 ! 


Notre programme sera appelé 
comme une commande externe 
ProDOS, donc accessible en 
mode direct ou différé. Il devra 
être plus rapide et s'adapter à la 
vitesse des lecteurs de disques. 
Seules les disquettes pour Disk II 
d'Apple pourront être initialisées, 
pas question d'accéder à un 
ProFile. La syntaxe est: 


INIT / <nom volume> [LS 
<slot>] [,D <drive>] 


Le nom du volume devra être 
précédé par un un caractère "/" et 
comprendre au plus quinze 
caractères répondant à la syntaxe 
des noms de fichiers ProDOS. Si 
slot et drive ne sont pas indiqués, 
l'initialisation s'effectuera sur le 
lecteur du préfixe courant. 

Les messages d'erreur possibles 





536 >>> DELAI12 
537 GAP_L2 >>> DELAI3 
538 GAP_L3 >>> DELAI2 


539 >>> DELAI3 

540 GAP_L4 >>> DELAI2 

541 LDA #$FF donnera un octet 
à 10 bits: 
*1111111100 

542 >>> WRITE 

543 DEY 

544 BNE GAP_L1 

545 >>> DELAI4 

546 RTS 


547 
548 * 3.d - Module de vérification du 
formattage d'une piste 


549 # 

550 CHECKTRK = * 

551 LDA #0 

552 STA M_BLOCK+1 

553 STA M BUFFER lit vers buffer 
tous usages 

554 LDA HIMEM+1 qui commence en 
Himem 

555 STA M_BUFFER+1 

556 LDA VC _PARM+2 détermine l'ad 
des paramètres 

557 STA VC_MLI+1 

558 LDY BI DRIVE no de lecteur 1/2 

559 DEY 

560 TYA 

561 LSR ==> carry=0 ou 1 

562 ROR 

563 ORA FSLOT donne %dsss0000 

564 STA M UNIT 

565 LDY #8 8 blocs par piste 

566 LDA FTRACK piste à contrôler 


— 


sont : 


SYNTAX ERROR 

RANGE ERROR 

WRITE PROTECTED 

NO DEVICE CONNECTED (si 
aucun lecteur Disk II sur le 
slot/drive indiqué) 

1/0 ERROR (si la disquette est 
physiquement endommagée ou la 
vitesse du lecteur est largement en 
dehors de la plage de tolérance) 


Bien entendu, l'initialisation 
d'une disquette efface 
définitivement toutes les données 
qui pouvaient y être enregistrées. 
Deux parties très distinctes 
recouvrent le terme d'initia- 
lisation: le formattage physique et 
le formattage logique. 


Formattage 
physique 


Le formattage physique est fort 
complexe. La description qui suit 
n'est nullement nécessaire à 
l'utilisation du programme, mais 
tente de répondre à la curiosité de 
nombreux lecteurs. 


Une disquette est composée de 35 
pistes, et la tête de lecture peut se 
déplacer individuellement sur 


chacune. Que la vie serait douce 


si tous les lecteurs de disque 





567 ASL 

568 ASL 

569 ASL 0 

570 STA M_BLOCK ler bloc d'une 
piste = piste x 8 

571 BCC CHECK_L2 

572 INC M BLOCK+1 (bloc > $FF) 


appel à ProDOS 
pour lire le bloc 


573 CHECK_L2 JSR GO MLI 


574 BCS CHECK L3 via la zone non 
translatable 

575 INC M_BLOCK en sortie, le 
moteur est arrêté 

576 DEY 

577 BNE CHECK L2 bloc suivant 


3 c=0 ==> OK ; 
c=1 ==> KO 


578 CHECK_L3 RTS 


579 

580 * 3.e - Vérification de la longueur de la 
piste formattée 

SOL M mme emmener 

582 *(on vient normalement de boucler une 
piste. On doit 

583 * donc revenir sur la zone adresse du 
secteur 0.) 

584 VER_TRK LDY #1 


585 VER L1 LDA $CO8C,X lit un octet 


586 CMP #$FF 

587 BNE VER _Ll on attend d'être 
synchronisé 

588 DEY 

589 BPL VER Lil on laisse passer 


2 oct synchro 
590 VER _L2 LDA $CO08C,X 


591 BPL VER_L2 
592 CMP #$FF 
593 BEQ VER L2 encore un 





avaient exactement la même 
vitesse de rotation, à la 
micro-seconde près! C'est 
malheureusement impossible, et 
des méthodes complexes de 
lecture/écriture des quelques 
50000 bits d'une piste et 
d'encryptage/décryptage de ceux- 
ci en octets ont dû être 
développées. 


A l'époque de la création du Disk 
II, une capacité de 80ko était 
généralement disponible sur les 
disquettes de S pouces 1/4 ; 
l'abandon par Apple de la 
méthode coûteuse des bits de 
synchronisation, puis le 
découpage d'une piste en 16 
secteurs à partir du DOS 3.3, ont 
porté la capacité à 140K, en 
acceptant un certain nombre de 
contraintes qui doivent être gérées 
par le logiciel : 

° un octet ne peut être lu ou écrit 
que s'il respecte plusieurs 
limitations (bit fort à 1, 
pas plus de deux bits nuls 
consécutifs, etc.) ; en 
conséquence, il faut 342 octets 
pour en coder 256. 


° chaque secteur d'une piste est 
composé de deux zones 
adresse et données ; 

° Ja zone adresse comprend un 
préfixe (composé des octets 





synchronisé à laisser passer 
594 INY 
595 CPY #13 13 octets en zone 
596 BEQ VER L3 c'est fini 
597 CMP TAB_VER,Y correspond au 


598 BEQ VER L2 

599 SEC ‘erreur: il faut 

600 RTS 

601 VER _L3 CLC 

602 RTS 

603 *(on peut maintenant demander à ProDOS de 
contrôler 

604 * l'ensemble de la piste, sans risque 
qu'il se plante...) 

605 

606 VER_4_4 PHA 


607 LSR 

608 ORA #$AA 

609 STA TAB VER,Y initialise table 
de vérification 

610 PLA 

611 ORA #$AA 

612 INY 

613 STA TAB_VER,Y 

614 RTS 

615 

616 

617 LÉLELLELELELLLLLELLEEELLEELLELELLLLELLLELTE LL) 

618 * 4 - FORMATTEUR LOGIQUE » 


619 RL RSR RAR ARR MR ARR RM RAR ARR RAR RAR RAR RAR RRRRRR 

620 

621 FORMAT_L = # 

622 * (en entrée tous les blocs ont été 
initialisés à zéro binaire) 
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DS, AA, 96), des informations 
sur les numéros de volume, de 
piste, de secteur et un contrôle 
de somme (chacune codées sur 
deux octets), et un suffixe 
(DE, AA, EB) ; 

° la zone données comprend un 
préfixe (DS, AA, AD), les 342 
octets représentant les 256 
octets du secteur, un contrôle 
de somme sur un octet, et un 
suffixe (DE, AA EB) ; 

° chaque zone est précédée d'un 
certain nombre ‘"“d'octets" 
spéciaux à dix bits, les huit 
premiers à un, les deux 
suivants à 0 ; ces octets servent 
à synchroniser la lecture sur le 
premier bit d'un octet, et non 
pas sur une position 
quelconque dans un octet ; 

° pour adapter le formattage à la 
vitesse de rotation, il suffit de 
"jouer" sur le nombre d'octets 
de synchronisation entre deux 
secteurs ; 


Ces contraintes doivent être 
gérées par le logiciel d'accès 
disque, et donc par le programme 
de formattage. 


La difficulté majeure à 
programmer cette routine réside 
dans sa dépendance au temps: 
chaque bit doit être écrit en quatre 


623 LDA #$81 

624 STA OP_MLI on appelera 
ProDOS en 
écriture 

625 LDY #0 

626 STY M _BLOCK+1 


627 
628 * 4.1 - Blocs 3 à 5 du Volume Directory 


630 LDA #5 dernier bloc du 
Volume Directory 

631 STA M_BLOCK 

632 ÉDA #4 le précédent est 
le bloc 4 

633 STA (HIMEM),Y Himem pointe vers 
le buffer général 

634 JSR WRITE_BL 

635 

636 DEC M_BLOCK on passe au bloc4 

637 LDA #3 

638 STA  (HIMEM),Y 

639 LDA #5 

640 LDY #2 

641 STA  (HIMEM),Y 

642 JSR WRITE_BL 

643 

644 DEC M_BLOCK «..puis on bloc 3 

645 LDA #4 

646 STA  (HIMEM),Y 

647 LDY #0 

648 LDA #2 

649 STA  (HIMEM),Y 

650 JSR WRITE_BL 


651 
652 * 4.2 - Bloc du Volume Bit Map 


cycles-machine (soit trente-deux 
cycles pour un octet normal, et 
quarante cycles pour un octet de 
synchronisation), et il est donc 
impératif de compter le nombre 
de cycles de chaque instruction, 
car tout décalage rend la disquette 
illisible. Le développement a été 
grandement facilité par 
l'utilisation de Bugbyter (Pom's 
13). 

En conséquence et afin de rendre 
la lecture du source plus aisée, les 
instructions assembleur qui ne 
servent apparemment à rien mais 
permettent, en fait, de “passer le 
temps" ont été regroupées dans 
des macro-instructions de 
temporisation. 


ProDOS, comme le DOS 3.3, 
Pascal ou CP/M, utilise le même 
formattage physique en 16 
secteurs. En revanche le 
formattage logique diffère pour 
chaque système. 


Formattage logique 


Le formattage logique est 
l'organisation interne du système 
d'exploitation qui rend 
transparent, à l'utilisateur final, 
l'éparpillement en blocs d'un 
fichier sur la disquette ; (le bloc 
est une unité logique regroupant 


bloc libre 
($22+1) x 8 = 280 
blocs sur disq 


655 LDY #$22 


656 WRITE_L2 STA (HIMEM),Y 


657 DEY 

658 BNE WRITE_L2 

659 LDA #1 les blocs 0 à 6 
sont utilisés 

660 STA  (HIMEM),Y 

661 LDA #6 la Bit Map est 
sur le bloc 6 

662 STA M_BLOCK 

663 JSR WRITE BL 


664 

665 * 4.3 - Premier bloc du Volume Directory 

666 % = mme 

667 TYA :=0 

668 WRITE_L3 STA (HIMEM),Y on remet le bloc 
à zéro binaire 


669 INY 

670 BNE WRITE_L3 

671 

672 LDA #3 

673 LDY #2 

674 STA (HIMEM),Y pointeur avant 
prochain bloc 

675 

676 INY 

677 INY 

678 LDA #$F0 Directory du Volu 

679 ORA NOM_LG 1g nom du volume 

(0-$F) 

680 STA  (HIMEM),Y 

681 

682 LDX #0 


683 WRITE_L4 LDA NOM VOL,X nom du volume 


deux secteurs). 


Dans le cas de ProDOS, le 
formattage logique implique les 
actions suivantes: 


° mise à zéro binaire de tous les 
blocs. 

o les blocs deux à cinq 
contiennent le catalogue du 
volume ; ils sont chaînés entre 
eux par des pointeurs avant et 
arrière. De plus, le bloc 2 
contient des informations 
générales sur la disquette, tel 
que le nom du volume et sa 
date de création. 

e le bloc 6 contient la carte du 
volume ; après une initiali- 
sation, les sept premiers blocs 
doivent être marqués occupé. 

° les blocs 1 et 2 contiennent les 
instructions machine qui 
chargent ProDOS. Si la 
disquette est destinée à être 
bootée, il faudra copier le 
fichier ProDOS sur cette 
disquette, ainsi qu'un 
interpréteur système (généra- 
lement Basic.System). Dans 
le cas contraire, la disquette ne 
pourra être bootée (cas d'une 
disquette de données), et 
ProDOS affichera un message 
d'erreur en cas de tentative. 

Ces deux premiers blocs diffèrent 

selon les versions de ProDOS ; 





685 STA  (HIMEM),Y 

686 INX 

687 DEC NOM_LG 

688 BNE WRITE _L4 

689 

690 JSR DATETIME appel à une 
éventuelle 
horloge 

691 LDX #3 

692 LOY #$1F 

693 WRITE_ LS LDA DATE,X 

694 STA (HIMEM),Y met date/heure 
création disq 

695 DEY 

696 DEX 

697 BPL WRITE_LS 

698 

699 LDX #8 

700 LDY #52A 


701 WRITE_L6 LDA VOL _DIR,X met constantes 
initiales du 
Directory 


702 STA  (HIMEM),Y 

703 DEY 

704 DEX 

705 BPL WRITE_L6 

706 

707 LDA #2 ler bloc du 
Directory est #2 

708 STA M_BLOCK 

709 JSR WRITE_BL 


710 
711 * 4.4 - Blocs génériques du boot 


713 LDX VC_BOOT2+1 
714 STX M_BUFFER 





me EE 
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aussi, plutôt que rendre le 
programme de formattage 
dépendant d'une version précise 
(et doubler la taille du source), 
utilisez INIT.LINK pour 
configurer la routine à votre 
propre version de ProDOS. 


Afin de contrôler le bon 
déroulement de l'initialisation 
physique de la disquette, un 
double contrôle est effectué après 
le formattage de chaque piste. 
Après avoir initialisé le dernier 
secteur d'une piste, on vérifie que 
le prochain secteur lu est bien le 
secteur zéro ; ceci permet de 
s'assurer que l'on n'a pas écrasé 
le début de la piste en écrivant la 
fin (cas d'un lecteur trop rapide), 
et que l'on n'a pas laissé un 
ancien secteur entre le début et la 
fin (cas d'un lecteur trop lent). 
Deuxième contrôle, plus 
approfondi celui-ci, on demande 
à ProDOS, par des appels à la 
fonction READ BLOCK, de 
vérifier que tous les secteurs de la 
piste peuvent être correctement 
lus. Attention : si on demandait à 
ProDOS de lire une disquette mal 
formattée physiquement, celui-ci 
se "planterait” lamentablement en 
faisant "trépigner" le bras de 
lecture. un bug ? 


Cette description vous a montré la 
complexité des méthodes 





716 STX M_BUFFER+1 

717 DEC M_BLOCK d'abord le bloc 1 

718 JSR WRITE BL 

719 DEX 

720 DEX 

721 STX M_BUFFER+1 

722 DEC M_BLOCK puis le bloc 0 

723 JMP WRITE_BL 

724 

725 * 4.a - Module d'écriture d'un bloc 

726 # = 

727 WRITE_BL JSR GO_MLI 

728 BCC WRITE _B2 

729 PLA si erreur on 
saute un niveau 
d'appel 

730 PLA 

731 WRITE_B2 RTS 

732 

733 RARRRARRRRRRARÉRRÉRRRRAAMANNARARÉÉRÉRÉR RANK 

734 * 5 - ZONES DE TRAVAIL * 


735 RRRRRRRRRRRRRR RAR RRRRRRRRARAARRRRRRRÉRRÉRRÉÉR 
736 
737 VC_PARM LDA M_PARM instructions pour 


vecteurs relogeab 


738 BRK stermine la zone 
de codes 6502 rel 

739 

740 * 5.1 - Constantes & variables 

TAl * =. 


0 
0 
745 FSLOT DFB 0 
746 ÀA_TRACK DFB 0 


d'accès-disque lorsqu'elles sont 
analysées au niveau le plus fin 
(et, en corollaire, la grande 
diversité des méthodes de 
protection possibles..). 


Avec un peu de pratique, il est 
possible d'accroître la capacité 
des disquettes 5 pouces, peut-être 
d'environ 10%, en n'utilisant 
qu'un seul secteur par piste, 
secteur de longueur variable selon 
que la piste se trouve près de 
l'axe de rotation ou des bords, 
mais il faudrait alors réécrire 
quasi-complètement le système 
d'exploitation et on se retrouve 
très vite coincé par le hardware ! 


Cette première approche vous a 
néanmoins, je l'espère, montré 
que l'utilisation de ProDOS en 
assembleur était beaucoup plus 
aisée que sous DOS 3.3, pourvu 
que le maître-mot “coexistence” 
soit respecté entre les différents 
programmes. 


Bibliographie 
ProDOS Technical Reference 


Manual (Apple) 
Beneath Apple ProDOS (Quality 


Software) 
G 





747 D_TRACK DFB 0 

748 ARM FLAG DFB 0 

749 ARM_ DIFF DFB 0 

750 ARM TAB DFB 2,4,6,0,6,4,2,0 

751 GAP3 BIS DFB 0 

752 RETRYCNT DFB 0 

753 NOM LG DFB 0 

754 NOM_VOL DFB B,B,B,B,B,B,B,B,B,B,B 
.B,B,B,B (15 blancs) 

755 TAB VER DFB $D5, $AA, $96, $SAA, $AB,0,0, 
$AA, SAA,0,0,$DE, SAA 


756 VOL DIR DFB $C3,$27,$D,0,0,6,0,$18,1 
757 SAVE_ERR DA 0 

758 

759 * 5,2 - Appel à ProDOS 

760 # "mm 

761 GO_MLI JSR MLI 

762 OP_MLI DFB $80 lecture/écriture 
763 VC_MLI DA M_PARM 

764 RTS 

765 M_PARM DFB 3 

766 M_UNIT DFB 0 

767 M_BUFFER DA 0 

768 M BLOCK DA 0 

769 

770 * 5.3 - Blocs du boot 

TU % mm 


772 * Zone mémoire chaînée par INIT.LINK 


7173 BOOT_BL2 = *+$200 

774 

775 FIN = *+400 

776 LONG = #-START+$400 
777 LST ON 

778 END 


Programme CMDLOAD.S 
(Assembleur Blg Mac) 


LST OFF 
* 


* * 
# CMDLOAD * 


1 

2 

3 

A Otéaanan hd dede hd de de dt de de de He A A A D Hd A A RE 
5 

6 

Fr Mn * 
8 


RAR RAR ARR R ARR RRARRR ARR RAR RRARARARRR RAR 


DURE LLLELELELEE TSI EEE EEE EEE TTL ELLE L LITE) 


11 * Copyright (C) 1985 Alexandre Avrane * 
12 * * 
13 * Modifié: 06/04/85 Led 
14 * Créé: 10/03/85 * 
15 * * 
16 * Assembleur: Big Mac * 
27 LELELLEELELEEEEEELEEEELLLLLELLLLLLLLELLLLE, 
18 

19 


20 * Objectifs: 

21 * ==. 

22 * Installe une commande externe 
ProDOS/Basic.System 

23 * Environnement: ProDOS + Basic System 

24 * Compatibilité: ProDOS B.4, 1.0, 1.0.1 et 
suivants 

25 * Intégration: chargé en $2000 

26 * Restrictions: aucun fichier ouvert, 

27 * chaînes de caractères Basic détruites 


29 * Source (Big Mac): CMDLOAD.S 
30 * Objet: CMDLOAD 


32 * Ce programme se charge en $2000 

33 * Avant son exécution, la commande externe 
doit avoir 

34 * été chargée et répondre aux conventions 
suivantes: 

35 * -chargement en $2100 

-octet haut de l'adresse de fin 

incrémenté de 1 en $2102 

37 * -octet haut de la longueur en $2104 

38 * -adresse de la commande externe 
précédente en $2106.2107 


uw 
a 
* 


40 * Adresses utiliséees: 
41 * messes“ 
longueur-1 d'une 
instruction 6502 


43 Al = $3c vecteurs du MOVE 
44 A2 - $3E 

45 A4 = 542 

46 PTR = $48 vect temporaire 
47 HIMEM - $73 

48 

49 OFFSET - Al 

50 FLAG MAJ = Al+1 

51 BASE 5 $2000 ad de chargement 
52 START = BASE+$100 

53 HFIN = BASE+$102 

54 HLONG - BASE+$104 

55 OLDCMD = BASE+$106 

56 


vecteur entrée 
vers cde externe 


57 EXTCMD - $BE06 


58 ERROUT = $BEO9 vecteur erreur 

59 OPENCNT = $BE4D nb fichier ouvert 

60 MLI = $BF00 entrée de ProDOS 

61 BITMAP = $BF56 carte des pages 
RAM utilisées 

62 

63 OPCODE = $SFSSE fournit long 
instruction 6502 

64 COUT = $FDED routine affichage 

65 MOVE = $FE2C déplacemt mémoire 

66 

67 ORG BASE 

68 

CE RLELLELELELLLLLLELLLELLLLLLLELLLLLLLLLLLLLEL EEE 

70 * 1 - INITIALISEUR * 

PAR LLLLLLLLLLELL:,:LL::1,,11,1:1L1L1111111LLL))] 

72 

73 LDA MLI 

74 CMP #$4C "jm! ? 

75 BEQ VER RAM 

76 LDA #$87 ProDOS pas actif: 
on arrête 

77 JMP COUT en "“beepant” 

78 


79 * 1.1 - Recherche de la mémoire 
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80 * 

81 VER_ RAM LDA OPENCNT fichiers ouverts? 
82 BEQ FIND _RAM 

83 LDA #$15 FILE STILL OPEN 
84 JMP ERROUT oui: impossible 


placer la routine 
85 FIND RAM LDA HLONG 





86 ADC #0 (carry=1) 
87 JSR GETBUFR cherche pages RAM 
consécutives 
88 BCC RAM OK ok, c'est trouvé 
89 NO_RAM LDA #14 PROGRAM TOO LARGE 
90 JMP  ERROUT 
91 ; 
92 RAM OK CMP HFIN Acc = msb lère 
: page allouée 
93 BCC NO RAM 
94 ‘ 
95 * 1.2 - Installe la nouvelle commande 
936 * _ 
97 LDX EXTCMD+2 
98 STA EXTCMD+2 
99 STX OLDCMD+1 
100 LDX EXTCMD+1 et sauvegarde 
l'ancien vecteur 
101 STX OLDCMD de commande ext 
102 LDY #0 
103 STY EXTCMD+1 
104 


107 PHA 

108 SBC #>$TART (c=1) 

109 STA OFFSET 

110 PLA 

111 SEC 

112 SBC #4 4 pages = 1 K 

113 STA HIMEM+1 fixe Himem et le 
buffer général 

114 LDA . #>START 

115 STA PTR+1 

116 STY PTR START doit débu- 
ter sur une page 

117 

118 RELOC Li LDY #0 

119 LOA  (PTR),Y 

120 BEQ MOVE _L1 BRK($00) sépare 
code et constante 

121 JSR OPCODE demande la long 

122 LDY LENGTH d'une instruction 

123 CPY #2 si 2 alors 3 oct 

124 BNE RELOC_L2 

125 LDA (PTR),Y prend octet haut 

126 CMP  #>START 

127 BCC RELOC_L2 adresse plus 
basse que nous 

128 CMP HFIN 

129 BCS RELOC_L2 adresse plus 
haute que nous 

130 ADC OFFSET ajoute décalage 

131 STA  (PTR),Y met à jour instru 

132 RELOC_L2 LDA PTR 

133 SEC 

134 ADC LENGTH 

135 STA PTR 

136 LDA PTR+1 

137 ADC #0 

138 STA PTR+1 

139 BNE RELOC_L1 = jmp 

140 


141 * 1.4 - Déplace code vers zone disponible 


143 MOVE_ Li LDY #<START doit être 0 (code 
aligné) 

144 LDA #>START 

145 STY Al 

146 STA Al+l 

147 CLC 

148 ADC  HLONG 

149 STY A4 

150 DEY 

151 STY A2 

152 STA A2+1 

153 LDA EXTCMD+2 

154 STA A4+l 

155 INY 

156 JMP MOVE déplace, termine 
l'initialisation 

157 

158 


159 * l.a - recherche de pages libres en RAM 


161 GETBUFR = * 

162 * (ce module devait être intégré dans 
ProDOS à l'adresse $BEFS 

163 * en entrée: À = nombre de pages désirées 

X = 0 : alloc mémoire temporaire 


164 * 


165 * X > 0 : allocation permanente sur 191 LDA FLAG MAJ : 
Memory Bit Map 192 BNE GBUF_LA4 non nul, ler 

166 * en sortie: carry = 1 si erreur, passage sans MAJ 
167 * sinon À = numéro lère page allouée 193 LDA BITMASK,Y 
168 194 ORA BITMAP,X MAJ carte mémoire 
169 STA PAGE_N nb de pages 195 STA BITMAP,X 

cherchées 196 GBUF_L4 LDA PAGE_1 
170 LDA HIMEM+1 197 SEC 
171 CL 198 DEC PAGE_2 
172 ADC #4 cherche à/c du 199 SBC PAGE_2 

buffer de 1K 200 CMP PAGE _N toutes pages 
173 STA PAGE_1 vérifiées? 
174 STX FLAG MAJ non nul: 2 passag 201 BNE GBUF_L3 non, on contrôle 
175 GBUF_L1 DEC PAGE_1 tête de série la page suivante 
176 BEQ GBUF Lé pas trouvé 202 LDA FLAG_MAJ 
177 GBUF_L2 LDA PAGE_l 203 BNE GBUF LS si non nul, 2ème 
178 STA PAGE_2 passage 
179 GBUF_L3 LDA PAGE 2 page courante 204 CLC 
180 PEA 205 LDX PAGE _2 c'est fini 
181 LSR 206 INX 
182 LSR 207 TXA 
183 LSR 208 RTS 





Pom's vous propose 
"Dominos” 
Apple J[+, //e, lle 










Thierry Haurie 





Il est inutile de présenté le jeu de dominos,; celui-ci bénéficie d'un 
graphisme très soigné (en couleur si vous disposez d'une carte 
"Chat Mauve") et les messages transmis par le programme sont, 
au choix, en Français, en Italien, en Allemand ou en Anglais. 






+ 


Ne 


184 TAX smultiplié par 8 209 GBUF LS LDA #0 
185 PLA 210 STA FLAG MAJ 
186 AND #7 forme indice dans 211 BEQ GBUF_L2 =jmp 
masque de chq oct 212 GBUF L6 SEC 
187 TAY 213 RTS 
188 LDA BITMASK,Y 214 BITMASK DFB $80,$40,520,$10,8,4,2,1 
189 AND BITMAP,X car BIT addr,X 215 PAGE _N DFB © 
n'est possible 216 PAGE _1 DFB O0 
que sur //c 217 PAGE 2 DFB 0 
190 BNE GBUF Li pas de place 218 END 
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Récapitulation 


CMDLOAD 
2000- AD 00 BF C9 4C FO 05 A9 
2008- 87 4C ED FD AD 4D BE F0 
2010- 05 A9 15 4C 09 BE AD 04 
2018- 21 69 00 20 98 20 90 05 
2020- A9 OE 4C 09 BE CD 02 21 
2028- 90 F6 AE 08 BE 8D 08 BE 
2030- 8E 07 21 AE 07 BE 8E 06 
2038- 21 AO 00 8C 07 BE 48 E9 
2040- 21 85 3C 68 38 E9 04 85 
2048- 74 A9 21 85 49 84 48 AO 
2050- 00 B1 48 FO 27 20 8E F8 
2058- A4 2F CO 02 DO OF B1 48 
2060- C9 21 90 09 CD 02 21 BO 
2068- 04 65 3C 91 48 A5 48 38 
2070- 65 2F 85 48 A5 49 69 O0 
2078- 85 49 DO D3 AO 00 A9 21 
2080- 84 3C 85 3D 18 6D 04 21 
2088- 84 42 88 84 3E 85 3F AD 
2090- 08 BE 85 43 C8 4C 2C FE 
2098- 8D FB 20 A5 74 18 69 O4 
20A0- 8D FC 20 86 3D CE FC 20 
20A8- FO 47 AD FC 20 8D FD 20 
20B0- AD FD 20 48 4A 4A 4A AA 
20B8- 68 29 07 A8 B9 F3 20 3D 
20C0- 58 BF DO El A5 3D DO 09 
20C8- B9 F3 20 1D 58 BF 9D 58 
20D0- BF AD FC 20 38 CE FD 20 
20D8- ED FD 20 CD FB 20 DO DO 
20E0- A5 3D DO 07 18 AE FD 20 
20E8- E8 8A 60 A9 00 85 3D FO 
20F0- B9 38 60 80 40 20 10 08 
20F8- 04 02 01 00 00 00 15 
Récapitulation 

INIT.CODEO 
2100- D8 A9 27 A9 O8 AD 58 FF 
2108- AD 5E 27 AD 6C BE 85 48 
2110- AD 6D BE 85 49 AO O1 B1 
2118- 48 D9 13 25 DO 3F C8 CO 
2120- 05 90 F4 88 88 8C 52 BE 
2128- A9 00 8D OF BF 8D 53 BE 
2130- A9 01 8D 54 BE A9 04 8D 
2138- 55 BE AD OD BE 8D 4F 25 
2140- AD OE BE 8D 50 25 AD 61 
2148- 21 AD 47 21 8D 50 BE 8D 
2150- OD BE AD 48 21 8D 51 BE 
2158- 8D OE BE 18 60 38 6C 06 
2160- 21 AE 4F 25 8E OD BE AE 
2168- 50 25 8E OE BE C9 00 FO 
2170- 08 C9 06 FO 04 C9 08 DO 
2178- 12 AD 61 BE 09 CO 8D 85 
2180- 21 A9 28 AE FF CO FO 06 
2188- 20 8B BE 4C OC BE A0 00 
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2Y90-— 
2198- 
21A0- 
21A8- 
21B0- 
21B8- 
21C0= 
21C8- 
21D0- 
21D8- 
21E0- 
21E8- 
21F0- 
21F8- 
2200- 
2208- 
2210- 
2218- 
2220- 
2228- 
2230- 
2238- 
2240- 
2248- 
2250- 
2258- 
2260- 
2268- 
2270- 
2278- 
2280- 
2288- 
2290- 
2298- 
22A0- 
22A8- 
22B0- 
22B8- 
22C0- 
22C8- 
22D0- 
22D8- 
22E0- 
22E8- 
22F0- 
22F8- 
2300- 
2308- 
2310- 
2318- 
2320- 
2328- 
2330- 
2338- 
2340- 
2348- 
e350= 
2358- 
2360- 
2368- 
2370- 


CA 
c8 
B1 
BO 
c8 
30 
El 
BO 
AD 
1A 
8A 
BD 
co 
8D 
EE 
78 
24 
21 
38 
CE 
18 
20 
BC 
25 
A0 
38 
co 
8r 
EA 
20 
A9 
20 
23 
18 
4A 
co 
DE 
23 
20 
A9 
c2 
EA 
9D 
ED 
EA 
DO 
A9 
c2 
FF 
CE 
68 
2D 
03 
BD 
AE 
CO 
8D 
8D 
1C 
69 
4E 


OA 


2378- 
2380- 
2388- 
2390- 
2398- 
23A0- 
23A8- 
23B0- 
23B8- 
23c0- 
23C8- 
23D0- 
23D8- 
23E0- 
23E8- 
23F0- 
23F8- 
2400- 
2408- 
2410- 
2418- 
2420- 
2428- 
2430- 
2438- 
2440- 
2448- 
2450- 
2458- 
2460- 
2468- 
2470- 
2478- 
2480- 
2488- 
2490- 
2498- 
24A0- 
24A8- 
24B0- 
24B8- 
24C0- 
24C8- 
24D0- 
24D8- 
24E0- 
24E8- 
24F0- 
24F8- 
2500- 
2508- 
2510- 
2518- 
2520- 
2528- 
2530- 
2538- 
2540- 
2548- 
2550- 
2558- 





61 





62 








Programme 
TDUMP.CODE.S 
(Assembleur Big Mac) 
1 LST OFF 
2 * 
3 
4 RRRRRRRRRRRRARRRRRRRAAARRRR RER RS RARES 
S * * 
6 * PRODOS TDUMP La 
1 % * 
8 RRRRRRRRRRRRMRRRRARRR RER RAR Rein 
9 
10 RRRRRRRRRRRR RAR ARR RAR RAR RAR RRRRRRRRRRR 
11 * Copyright (C) 1985 Alexandre Avrane * 
12 * * 
13 * Modifié: 26/04/85 * 
14 * Créé: 07/04/85 - 
15 * * 
16 * Assembleur: Big Mac * 
: L d ÉÉPELLILLLILLLLLLLILLLLLLLLLLLLLLLLLLELELE 
18 
19 
20 * Objectifs: 
21% === 
22 * Fournit un dump hexadécimal/ASCII d'un 
fichier ProDOS 
23 * 
24 * Syntaxe: 
25 * 
26 * TDUMP <nom fichier> [,S <slot>] [,D 
<drive>|] 
27 * 
28 * Environnement: ProDOS + Basic System 
29 * Intégration: cde externe Basic System 
30 * 
31 * Moins de $100 octets 
32 * Arrêt momentanée par une touche, 
définitif par ctrli-Q. 
33 * 
34 * Ce programme doit être chaîné avec 
CMDLOAD pour être 
35 * initialisé comme une commande externe. 
36 * Source (Big Mac): INIT.TDUMP.S 
37 * Objet: INIT.TDUMP 
38 
39 * Adresses utiliséees: 
40 * ===.“ 
41 PTR = $48 vecteur tempora 
42 HIMEM - $73 
43 READ BUF = $200 buffer de lec- 
ture de 8/16 o. 
44 
45 PRINTERR = $BEOC affiche erreurs 
46 VECTOUT = $BE30 routine sortie 
47 XTADDR = $BESO vecteur sortie 
d'une cde exter 
48 XLEN $BES2 1g d'une cde ex 
49 XCNUM = $BES53 n° cde ProDOS 
50 PBITS - $BES54 bits d'autori- 
sation paramètr 
51 VPATHL = $BE6C vecteur vers 
nom volume 
52 GOSYSTEM = $BE70 appel à ProDOS 
via Basic.Syste 
53 SOPEN = $BECB table des para- 
? mètres de OPEN 
54 SREAD . $BEDS table des para- 
mètres de READ 
55 SCLOSE = $BEDD table des para- 
mètres de CLOSE 
56 SYSERR = $BFOF code erreur MLI 
57 
58 KEYBOARD = $co00 clavier 
59 STROBE = $co10 raz clavier 
60 PRBL2 = $F94A aff x blancs 
61 RDKEY = $FD18 attente clavier 
62 CROUT = $FD8E envoi d'un CR 
63 PRNTXY3 = $FD99 affiche X et Y 
en hexa et "-" 
64 PRBYTE - $FDDA affiche accumul 
65 COUT = $FDED sortie caractèr 
66 RTS = $FFs8 contient un RTS 
67 
68 ORG $2100 (CMDLOAD de 
$2000 à $20FF) 
69 
70 * 1.1 - Vérifie que la commande externe 
est la nôtre 
FLE 
72 START CLD nécessaire 
73 
74 * Conventions de link avec CMDLOAD: 





75 
76 
77 
78 
79 


80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
30 
91 


92 
93 
94 
35 
36 
97 


38 
39 
100 


101 
102 


103 
104 


105 
106 


107 
108 
109 


110 
111 
112 


113 


114 
115 
116 
117 


118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 


135 
136 
137 


138 
139 
140 
141 
142 
143 
144 
145 
146 


147 
148 
149 
150 


151 
152 
153 


#>FIN+$100 
#>LONG-$100 
V_OLDCMD LDA RTS 
VPATAL pointeur vers 
cde actuelle 
PTR 

VPATHL+1 

PTR+1 

LOY #1 

(PTR) ,YŸ obtient un Cara 
COMMAND-1,Y c'est ”"TDUMP"? 
NO_CMD non 


COMPAR 


#5+1l 
COMPAR 


* 1.2 - Demande à ProDOS d'examiner la 
suite de la commande 


À ==. 
DEY . 
DEY 
STY XLEN stocke 1g -1 
LOA #0 
STA SYSERR initialise 
code erreur MLI 
STA XCNUM indique cde ext 
LDA ##00000001 
STA PBITS nom de fichier/ 
volume autorisé 
LDA ##00000100 
STA PBITS+1 slot & drive 
autorisés 
V_SUITE LDA SUITE vecteur de 
retour après 
examen 
LDA V_SUITE+1 
STA XTADDR indique à Pro- 
DOS où revenir 
LDA V_SUITE+2 
STA XTADDR+1 
CLIC sindique à Pro- 
DOS que c'était 
pour nous 
RTS 
NO CMD SEC icde n'était 
pas pour nous 
JMP (V_OLDCMD+1) alimenté par 
CMDLOAD 
* 1.3 - Ouverture du fichier 


SUITE LDA VPATHI nom fichier re- 

copié en paramt 

STA SOPEN+1 

LDA VPATHl+1 

STA SOPEN+2 

LDA HIMEM 

STA SOPEN+3 

STA SREAD+5 (acc=0) 

STA OFFSET 

STA OFFSET+1 

LDA HIMEM+1 

STA SOPEN+4 

LDA #$C8 code OPEN 

JSR GOSYSTEM 

BCS ERREUR 

LDA SOPEN+S réf recopié... 

STA SREAD+1 en paramètre 
du READ, 

STA SCLOSE+1 et du CLOSE 

LDA #<READ_BUF utilise buffer 
5200 pour lire 

STA SREAD+2 

LDA #>READ_BUF 

STA SREAD+3 


* 1.5 - Boucle de lecture 





#16 


LDX 
LDA VECTOUT+1 
AND #$FO0 conserve le 
ler demi-octet 
CMP #$c0 sort vers slot? 
BEQ COL oui: 80 col 
LDX #8 
COL STX SREAD+4 on lira 8 ou 16 
octets/ligne 
LDA #5A0 caractère blanc 
BLANK STA READ BUF-1,X 
DEX 


154 BNE 
155 

156 LOOP LDA 
157 JSR 
158 BCC 
159 CMP 
160 BEQ 
161 ERREUR JMP 
162 

163 OK LDx 
164 LDY 
165 JSR 
166 LDX 
167 JSR 
168 

169 LDY 
170 LDX 
171 LOOP1 LDA 
172 AND 
173 CMP 
174 BCS 
175 LDA 
176 NORM ORA 
177 JSR 
178 DEX 
179 INY 
180 CPY 
181 BCC 
182 

183 INX 
184 INX 
185 LDY 
186 BEQ 
187 LOOP2 LDX 
188 CONT JSR 
189 LDA 
190 JSR 
191 INY 
192 CPY 
193 BCC 
194 

195 JSR 
196 LDA 
197 CLC 
198 ADC 
199 STA 
200 LDA 
201 ADC 
202 STA 
203 

204 LDA 
205 BPL 
206 STA 
207 LDA 
208 JSR 
209 CMP 
210 BNE 
211 FINAL LDA 
212 JMP 
213 

214 * Variables 
218 À = 
216 BRK 
217 COMMAND ASC 
218 OFFSET DA 
219 

220 FIN = 
221 LONG = 
222 LST 
223 END 


BLANK 


+$CA 
GOSYSTEM 
OK 

#5 

FINAL 
PRINTERR 


OFFSET 
OFFSET+1 
PRNTXY3 


#1 
PRBL2 


#0 

CONT 

#1 

PRBL2 
READ_BUF, Y 
PRBYTE 


SREAD+6 
LOOP2 


CROÛT 
SREAD+4 


OFFSET 
OFFSET 
OFFSET+1 
#0 
OFFSET+1 


KEYBOARD 
LOOP 
STROBE 
#5a0 
RDKEY 
#591 
LOOP 
#scc 
GOSYSTEM 


*TDUMP" 
0 


* 


fin du fichier? 
oui 


affiche adresse 
depuis le début 


nb d'oct à lire 


remplace carac- 
tère de contrôl 
bit fort à 1 
pour COUT 


=jmp 
affiche 1 blanc 
affiche un oct 


dernier caracté 
non 


fin de la ligne 
MAJ adres début 


ctri-Q ? 


CLOSE 


FIN-START+$100 


ON 


Récapitulation 
TDUMP.CODE 


2100- 
2108- 
2110- 
2118- 
2120- 
2128- 
2130- 
2138- 


A9 
6c 
49 
DO 
88 
BF 
BE 
21 


23 
BE 
A0 
2D 


A9 
85 
O1 
c8 
52 
53 
04 
38 


01 
48 
B1 
co 
BE 
BE 
8D 
21 


58 
6D 
D9 
90 
00 
01 
BE 
50 


FF 
BE 
7 
F4 
8D 
8D 
AD 
BE 
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2140- 
2148- 
2150- 
2158 
2160- 
2168- 
2170- 
2178— 
2180- 
2188- 
2190- 
2198- 
21A0- 
21A8- 
21B0- 
21B8- 
21C0- 
21C8- 
21D0- 
21D8- 
21E0- 
21E8- 
21F0- 
21F8- 


39 
6c 
BE 
73 
1D 
CF 
36 
DE 
02 
BE 
08 
01 
BE 
OC 
20 
AO 
29 
09 
DB 
FO 
00 
BE 
BE 
AD 


8D 
21 
6D 
CE 
8D 
A9 
DO 
A9 
D8 
FO 
D9 
DO 
07 
AE 
FD 
AE 
c9 
20 
90 
A2 
20 
EF 
6D 
22 


BE 
6C 
8D 
8D 
22 
20 
8D 
8D 
A2 
Co 
A9 
A9 
05 
22 
O1 
BE 
BO 
FD 
E8 
20 
FD 
8E 
22 
00 


18 
BE 
CD 
DA 
A5 
70 
D6 
D7 
10 
FO 
A0 
CA 
FO 
AC 
20 
B9 
02 
CA 
E8 
4A 
c8 
FD 
8D 
8D 





2200- 22 AD 00 CO 10 97 8D 
2208- CO A9 A0 20 18 FD C9 
2210- DO 8B A9 CC 4C 70 BE 
2218- 54 44 55 4D 50 00 00 


Programme CMDLINK 


1 REM* LINK COMMANDE EXTERNE * 

10 D$= CHRS (4) 

15 TEXT : HOME : PRINT "LINK COMMAND 
E EXTERNE" 

20 PRINT : INPUT "COMMANDE EXTERNE 
A CHAINER: ";C$ 

25 IF NOT LEN(C$) THEN END 

27 PRINT "CHARGE "C$".CODE …." 

30 PRINT D$"BLOAD"C$".LOAD,A$2100" 

35 A = PEEK (8452): REM $2104 

37 PRINT "CHARGE CMDLOAD... 

40 PRINT D$"BLOAD CMDLOAD,A$2000" 

44 ONERR GOTO 46 

45 PRINT D$"CREATE"C$",T$FO" 

46 POKE 216,0 

48 PRINT "SAUVE "C$ 

50 PRINT D$"BSAVE"C$",A$2000,L"256 * 
(A + 2)", T$FO" 


Programme INIT.LINK 


1 REM * LINK COMMANDE INIT * 

10 D$= CHRS (4) 

15 TEXT : HOME : PRINT "LINK COMMAND 
EINIT* 

19 PRINT : PRINT "CHARGE INIT.CODEO 


20 PRINT D$"BLOAD INIT.CODE0": REM 
$2100 

23 FOR = 0 TO 33: READ D: POKE 768 + 
1,D: NEXT 

24 POKE 798, PEEK (8457): POKE 799, 
PEEK (8458) - 2 

25 A= PEEK (8457) + 256 * PEEK (8458) - 
512: REM $2109 

26 PRINT : PRINT "PLACEZ UNE DISQUE 
TTE PRODOS", "EN SLOT 6, DRIVE 1 
->";: GET Z$ 

30 CALL 770: IF PEEK (768) THEN PRINT 
"ERREUR..." END 

40 B = A + 1024 - 2 * 4096 

45 PRINT : PRINT "SAUVE INIT.CODE ...* 

50 PRINT D$"BSAVE INIT.CODE,A$2100, 
L'A - 7424 

90 DATA 0,1,32,0,191,128,28,3,141,0,3, 
208,1 4,238,32,3,238,31,3,238,31,3,20 
6,1,3, 16,231,96,3,96,0,0,0,0 
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13 et 15, avenue du Petit-Parc - 94300 VINCENNES 





Vos textes en direct de votre ordinateur 
à nos photocomposeuses 


Gain de temps et économie 


de l'impression et du brochage. 





Les textes de vos articles, catalogues, 
annuaires ou brochures saisis sur 


directement sur notre 
photocomposeuse 


Nous vous évitons ainsi, 
le coût et le temps de la saisie 
supplémentaire que 
nécessite le traitement 
traditionnel de la photocomposition 
avant l'impression des documents. 


Si vous le désirez nous pouvons 
également nous charger 


















es instructions de 
décalage et rotation du 


langage machine 

GCSO2EMASL, LSR, 
ROL, et ROR, permettent bien 
des choses. Leurs fonctions sont 
les suivantes : 


+ ASL : décalage à gauche d'un 
octet. Tous les bits sont décalés 
d'une position vers la gauche. Le 
bit 7 va dans la retenue (C) et un 
zéro entre par le bit 0. Par 
exemple, si l'accumulateur 
contient la valeur %01010011 
($53), une instruction ASL 
Fe fi 10100110 ($A6), avec 
+ LSR : décalage à droite d'un 
octet. C'est le même principe, 
mais dans l'autre sens : les bits 
sont décalés vers la droite, C 
contient le bit O et le bit 7 est à 
ZÉrO. 


+ ROL: Rotation à gauche d'un 
octet. L'effet est le même que 
ASL, à ceci près que le bit O 
prend la valeur de C avant le 
ROL : si l'accumulateur contient 
%01010011 ($53) et la retenue 
est à 1, un ROL donnera 
%10100111 ($A7). Il ne s'agit 
donc pas d'une vraie rotation, 
puisque le bit 7 sortant ne va pas 


remplacer le bit 0. Mais cela peut : 


Source ZOOM 


(Assembleur Merlin) 


KRRRRRÉRRERARÉRÉERÉRRARRRRRÉÉÉ 


AGRANDISSEMENT D'UNE 
IMAGE HGR 


(C) Pascal CANTOT 
04/05/85 


Ù OÙ ù # # * * 


œ@ —J ao Un & LD NN MH 
Ù OÙ Ù Ù # *#  * 


9 KRRRRRRRRRRARRRRRRÉRRRÉRRÉRÉRÉ 


11 

12 CNTR = $18 
13 DLINE = $19 
14 HBASE = $26 
15 HMASK = $30 
16 LINNUM = $50 
17 XTAB = $FA 
18 YTAB = $FB 
19 HBASE1 = $FC 
20 HBASE2 = $FE 
21 

22 CHKCOM - $DEBE 
23 GETBYT = $E6F8 





DécCalages.… 


Pascal Cantot 


être obtenu par : 


CMP #$80 
ROL 


Le CMP #$80 positionne C à 1 si 
l'accumulateur contient un octet 
supérieur ou égal à 5$80, 
c'est-à-dire négatif, ou encore 
dont le bit 7 est à 1. Inversement, 
si cet octet est positif (bit 7 à 
zéro), C=0. Le ROL qui suit 
effectuera alors une vrai rotation. 
Cette méthode peut être utilisée 
pour coder des données sur une 
disquette, et empêcher d'éven- 
tuels curieux de les lire et les 
modifier avec un utilitaire genre 
DISKFIXER, CIA ou MOBBY 
DISK. L'utilisation d'un EOR 
#$AA est devenue classique. 


+ ROR : Même principe, mais 


; Bit 7->C 


dans l'autre sens : l'octet est 
24 HPOSN = $F411 
25 

26 

27 ORG $300 
28 O08BJ $300 
29 

30 

31 GETPARM JSR CHKCOM 
32 JSR GETBYT 
33 CPX #21 

34 BCS ILQERR 
35 STX XTAB 
36 JSR CHKCOM 
47 JSR GETBYT 
38 CPX #97 

39 BCS  ILQOERR 
40 STX YTAB 
41 

42 MAGNIFY LDA YTAB 
43 CLC 

44 ADC #95 

45 STA CNTR 
46 LDA #191 
47 STA DLINE 
48 

49 MAGNI LDA DLINE 
50 JSR HPOSN 


décalé à droite, C entre par le bit 
7, et le bit O sort et va dans C. 


Ici, effectuer une rotation 
complète est plus complexe, car 
on ne peut tester le bit O d'un 
octet directement. On peut faire : 


PHA  ;Sauvegarde 
l'accumulateur 

LSR :BitO -> C 

PLA ;Restaure l'acc. C 
contient toujours bit O 

ROR  ;Et l'ex-bit 0 prend sa 


place au bit 7 


Voir “Initiation à l'assembleur" 
(POM'S 14). 


Les décalages ont de nombreuses 
applications. La principale, la 
multiplication entière, a déja été 
traitée par Gérard Michel, ainsi 
que le test de bits. 


51 LDA HBASE 

52 STA HBASE1 
53 LDA HBASE+1 
54 EOR #$60 

55 STA HBASE1+1 
56 DEC DLINE 

57 LDA DLINE 

58 JSR HPOSN 

59 LDA HBASE 

60 STA HBASE2 
61 LDA HBASE+1 
62 EOR #$60 

63 STA HBASE2+1 
64 DEC DLINE 

65 LDA CNTR 

66 JSR  HPOSN 

67 LDA HBASE 

68 CLC 

69 ADC XTAB 

70 STA HBASE 

71 LDY #19 

72 MAGN2 LDA  (HBASE),Y 
73 PHA 

74 AND ##%10000000 
75 STA  HMASK 

76 PLA 

77 JSR DSHIFT 
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Les deux programmes présentés 
ici sont basés sur les décalages et 
les manipulations de bits : le 
premier les utilise pour compter 
des bits : il s'agit de FREDISK, 
qui donne le nombre de secteurs 
libres sur une disquette. Cela 
permet de voir s'il est possible de 
sauvegarder un fichier, mais 
aussi de contrôler facilement 
l'existence ou non d'un drive, ou 
la présence d'une mauvaise 
disquette. Le second illustre bien 
la puissance de ces instructions : 
il s'agit de ZOOM, agrandit une 
partie d'une image HGR au 
double de sa taille. On peut 


réaliser des effets de 
grossissement (voir DEMO 
ZOOM), mais aussi des 


génériques HGR courts et 
esthétiques. 


FREDISK 


Mode d'emploi 


Après avoir fait "BRUN 
FREDISK", l'instruction USR 
est revectorisée. IL suffit alors 
d'un "PRINT USR(X)", où 'X' 
est le numéro du lecteur (1 ou 2). 
Tout autre valeur entraîne un 
"ILLEGAL  QUANTITY 
ERROR") pour connaître le 





78 TYA 
79 PHA 
80 ASL 
81 TAY 
82 LDA  LINNUM 
83 ORA  HMASK 
84 STA  (HBASE1),Y 
85 STA  (HBASE2),Y 
86 INY 
87 LDA LINNUM+1 
88 ORA  HMASK 
89 STA  (HBASE1),Y 
90 STA  (HBASE2),Y 
91 PLA 
92 TAY 
93 .  DEY 
94 BPL MAGN2 
95 
96 LDX CNTR 
97 BEQ MAGNEND 
98 DEX 
99 STX CNTR 
100 CPX YTAB 
101 BCS MAGNI1 
102 


103 MAGNEND RTS 


nombre de secteurs libres sur la 
disquette se trouvant dans le 
lecteur X. En cas d'erreur de 
lecture (disquette vierge, par 
exemple), il y a un "Bip" et 
FREDISK retourne la valeur -1. 


Le secteur O0 de la piste $11 d'une 
disquette DOS 3.3 (VTOC de la 
disquette), contient, entre autres, 
une sorte de "carte" des secteurs 
(octets $38 à $CO0), chaque 
secteur étant représenté par un bit 
et chaque piste par deux octets 
(les seize bits des seize secteurs 
qu'elle contient) plus deux octets 
à O (peut-être Apple avait-il prévu 
un éventuel doublement de la 
capacité de ses lecteurs). 


Le principe de FREDISK est 
simple : grâce à la routine RWTS 
du DOS, il va lire ce secteur, puis 
compter les bits qui sont à 1 
(=secteur libre) de l'octet $38 à 
l'octet $CO. 


Voici la procédure : tout d'abord, 
on charge la VTOC en $B3BB 
(emplacement qui lui est 
normalement réservé par le DOS) 
en tenant compte du lecteur 
spécifié. Ensuite, on prend un 
paire d'octets sur deux de $38 à 
$CO0. On charge chaque octet 
dans l'accumulateur (routine 
GETBYTE) puis on appelle 





105 KRRARRÉRRÉRRRRERRÉRÉRÉRRÉRÉÉÉ 


106 

107 ILQERR LDX #53 

108 JMP  $D412 
109 

110 DSHIFT LDX #0 

111 STX LINNUM 
112 STX LINNUM+1 
113 

114 LDX #7 

115 SHFTI AS 

116 PHP 

117 JSR  ROLINNUM 
118 PLP 

119 JSR ROLINNUM 
120 DEX 

121 BPL SHFTI 
122 JSR  ROLINNUM 
123 LSR LINNUM 
124 RTS 

125 

126 

127 % 

128 ROLINNUM ROL LINNUM 
129 ROL LINNUM+1 
130 RTS 


SHIFT, qui retourne le nombre 
de bit à 1. Il suffit alors d'ajouter 
ce résultat à un compteur, puis de 
continuer jusqu'au 35ème octet. 
Alors, le compteur contiendra le 
nombre de secteurs libres. 


SHIFT commence (ligne 85) par 
réinitialiser un compteur, 
BITCNTR, qui contiendra le 
nombre de bits qui sont à 1. 
Ensuite, une boucle est exécutée 
huit fois. A chaque fois, À est 
décalé. Le bit sortant va dans la 
retenue C. Puis, C est testé : si 
elle est à 1, on incrémente 
BITCNTR. Et on boucle huit 
fois. 

A la fin, on a testé tous les bits de 
A et BITCNTR contient le 
nombre de bits qui étaient à 1. 


Ce procédé est très utile, car il 
permet d'analyser les "BIT 
MAPS", comme une VTOC, une 
image HGR (compteur de 
collisions du Basic lors du dessin 
d'une forme), la MEMORY MAP 
du ProDOS, etc. 


ZOOM HGR 


Il s'agit d'un programme qui 
agrandit une image HGR, en 
mettant le résultat de cet 
agrandissement dans l'autre page 





Récapitulation 
ZOOM 


0300- 20 BE DE 20 F8 E6 EO 15 
0308- BO 7A 86 FA 20 BE DE 20 
0310- F8 E6 EO 61 BO 6E 86 FB 
0318- AS FB 18 69 5F 85 18 A9 
0320- BF 85 19 AS 19 20 11 F4 
0328- AS 26 85 FC A5 27 49 60 
0330- 85 FD C6 19 A5 19 20 11 
0338- F4 A5 26 85 FE A5 27 49 
0340- 60 85 FF C6 19 AS 18 20 
0348- 11 F4 AS 26 18 65 FA 85 
0350- 26 A0 13 B1 26 48 29 80 
0358- 85 30 68 20 89 03 98 48 
0360- OA A8 A5 50 05 30 91 FC 
0368- 91 FE C8 AS 51 05 30 91 
0370- FC 91 FE 68 A8 88 10 DB 
0378- A6 18 FO 07 CA 86 18 E4 
0380- FB BO AO 60 A2 35 4C 12 
0388- D4 A2 00 86 50 86 51 A2 
0390- 07 OA 08 20 A3 03 28 20 
0398- A3 03 CA 10 F4 20 A3 03 
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HGR (cela a plusieurs avantage : 
un zoom continu si on "switche" 
les pages APRES l'agrandis- 
sement, et la possibilité de 
réaliser quatre images HGR à 


partir d'une seule, en 
agrandissant successivement 
chaque quart de l'image. 


Chaque point doublera en hauteur 
et en largeur, c'est à dire qu'il 
deviendra un carré de 2x2 pixels. 
Pour lancer le programme, il 
suffit d'un "BLOAD ZOOM" (il 
se charge en $300), puis d'un 
"CALL 768,X,Y" où X,Y sont 
les coordonnées du coin 
supérieur gauche du quart 
d'image à agrandir : X est le 
numéro d'octet, donc compris 
entre 0 et 20 (s'il est supérieur à 
20, il y a une erreur, car le bord 
droit est alors en dehors de 
l'écran), et Y le numéro de la 
ligne (de 0 à 96). 

Nous allons maintenant analyser 
le traitement que subit chaque 
octet de la page HGR doubler 
horizontalement (verticalement, il 
suffit de dédoubler la ligne). 


Le problème est de dédoubler 


Programme 
DEMO ZOOM 


20 ZOOM = 768 
30 HOME : VTAB 24: HGR2 
40 Charger ici une image graphique 
en $4000 
50 FOR 1= 1 TO 1000: NEXT : FOR 
1=1T03 
60 FOR/J=1TOO STEP -1 
70 CALL ZO,5 + 1 * .5,40 
80 POKE - 16300 + J,0: POKE 
230,32 + 32 *J 
90 NEXT : NEXT : FOR I = 1 TO 
500: NEXT 
100 POKE - 16301,0: INPUT "EN 
CORE (O/N) ? ";A$ 
110 IF ASC (A$) = 78 THEN TEXT 
: HOME : END 
120 RUN 


chaque bit, pour obtenir le 
résultat sur deux octets, tout en 
conservant le bit 7 (couleur). 


Ainsi, si on a un octet 
%10010100, il faudra retourner 


%10000110 10110000 ; analy- 
sons DSHIFT, à la ligne #110 du 
Source : 


A contient l'octet. Auparavant, 
HMASK a été mis à %10000000 
ou %00000000 selon le bit de 
couleur. LINNUM (deux octets) 
est remis à 0. C'est lui qui 
contiendra le résultat. Puis 
SHFTI1 est exécuté huit fois. A 
chaque fois, l'accumulateur est 
décalé, et le bit sortant va dans C. 
Le registre d'état (donc C 
également) est sauvegardé par 
PHP, et on appelle ROLINNUM, 
qui effectue le décalage sur 16 
bits de LINNUM. La retenue 
entre donc dans LINNUM par le 
bit 0. Puis intervient la subtilité : 
on restaure la retenue (modifiée 
lors du décalage 16 bits) par PLP 
et on répète l'opération. Ainsi, le 
bit sortant de l'accumulateur se 
retrouve dédoublé dans 
LINNUM. Il reste à boucler huit 


Récapitulation 
FREDISK 


Pour utiliser FREDISK , faire 
BRUN FREDISK 


puis 
A=USR(DRIVE) 

avec DRIVE = 1 ou 2. 

9500- A9 4C 85 OA A9 OD 85 0B 
9508- A9 95 85 0C 60 20 FB E6 
9510- 8A FO 09 EO 03 BO 05 8E 
9518- EA B7 DO 03 4C 99 E1 A9 
9520- BB 8D C3 AA A9 B3 8D C4 
9528- AA 20 8D 95 90 OA A9 FF 
9530- AO FF 20 F2 E2 4C 3A FF 
9538- A9 00 8D 8B 95 8D 8C 95 
9540- A0 38 20 59 95 C8 20 59 
9548- 95 C8 C8 C8 CO C4 DO F2 
9550- AD 8C 95 AC 8B 95 4C F2 
9558- E2 B9 BB B3 20 6F 95 18 
9560- 6D 8B 95 8D 8B 95 AD 8C 
9568- 95 69 00 8D 8C 95 60 8E 
9570- 8A 95 A2 00 8E 89 95 A2 
9578- 08 OA 90 03 EE 89 95 CA 
9580- DO F7 AD 89 95 AE 8A 95 
9588- 60 00 00 00 00 A9 11 8D 
9590- EC B7 A2 00 8E ED B7 8E 
9598- EB B7 E8 8E F4 B7 A9 BB 
95A0- 8D FO B7 A9 B3 8D F1 B7 
95A8- A9 B7 AO E8 4C B5 B7 


fois. 


Ensuite, il s'agit de restaurer 
correctement le bit de couleur, 
car, bien que le zoom transforme 
tout point en couleur en point 
blanc par son dédoublement, il 
faut bien penser au fait que, pour 
l'Apple, il existe deux blancs et 
deux noirs différents, bien 
qu'ayant la même apparence. 
Aussi, il faut en tenir compte, au 
cas où l'utilisateur voudrait tracer 
des lignes sur l'image agrandie. 


Le bit de couleur est dédoublé 
dans les bit 15 et 14 de 
LINNUM. Un appel à 
ROLINNUM le restreint au bit 
15. Le bit de couleur du second 
octet est donc bien ajusté. Au 
deuxième maintenant... On décale 
vers la droite le premier octet (le 
bit 0, qui est "éjecté", vient de 
l'opération précédente), libérant 
ainsi le bit 7 (qui est alors à zéro). 
Ensuite, le programme principal 
effectue un ORA HMASK qui 
rétablit le bit de couleur originel. 


G 


Source FREDISK 


(Assembleur Merlin) 


a KAKRARRRRERRRRRARÉÉRRÉÉÉÉÉHAÉ 
> * * 
3 FREDISK x 
A ——_—_—_—_mmmmmm— * 
5 * * 
b'& Pascal CANTOT x 
7 + * 
8 KKKRRRRRKRKRRRRRRRRRKRRRRRREEAR 
9 

10 

11 USR = $0A 

12 ADRVTOC = $AAC3 

13 VTOC = $B3BB 

14 GIVAYF = $E2F2 

15 CONINT = $E6FB 

16 

17 

18 ORG  $9500 

19 OBJ $9500 

20 

21 INITFRE LDA #$4C 

22 STA USR 

23 LDA #FREDISK 

24 STA USR+1 

25 LDA #>FREDISK 

26 STA USR+2 

27 RTS 
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Micro-informations 


Jean-Michel Gourévitch 


e drapeau de l'Apple // 

flotte au dessus de 

Cupertino. C'est la 

conséquence la plus 
visible de la réorganisation en 
forme de révolution de palais qui 
a secoué Apple. Exit Steve Jobs : 
avec la mise à l'écart du père 
fondateur, la priorité donnée à 
l'équipe chargée de développer le 
Macintosh a brusquement cessé. 
Les "parias", qui s'occupaient du 
/! (qui fournit toujours à Apple 
l'essentiel de ses ressources) 
tiennent désormais le pouvoir. 
Sauront-ils modérer leur revan- 
che, et ne pas étouffer les 
spécialistes du Mac ? De cette 
question dépendra probablement 
l'avenir d'Apple comme cons- 
tructeur indépendant de micro- 
ordinateurs. 


En attendant, c'est une véritable 
salve de nouveautés, concernant 


Suite de Fredisk 





28 


29 KKKKKKRAKRRRRRRRARKRÉRRRRRRÉRÉRÉ 


30 


31 FREDISK JSR CONINT 
32 TXA 

33 BEQ FRERR 
34 CPX #3 

35 BCS FRERR 
36 STX $B7EA 
37 BNE RDVTOC 
38 * 

39 

40 FRERR JMP $E199 
41 

42 RDVTOC LDA #VTOC 
43 STA  ADRVTOC 
44 LDA #>VTOC 
45 STA  ADRVTOC+1 
46 JSR  READVTOC 
47 

48 BCC SCANNER 
49 LDA #$FF 

50 LDY #$FF 

51 JSR GIVAYF 
52 JMP $FF3A 
53 


54 SCANNER LDA #0 
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l'Apple //, qui va probablement 
faire cet automne la joie des 
lecteurs de Pom's, toujours fanas 
de l'ancêtre, avec, pour commen- 
cer, le lecteur de disquettes (trois 
pouces et demi comme celles du 
Macintosh) qui viendra relayer 
l'antique lecteur de 143 Ko. Ce 
lecteur (de la taille du lecteur 
externe du Macintosh, et de la 
couleur de l'Apple //c) fabriqué 
par Sony (et baptisé Liron) est 
capable de stocker 800K0 sur les 
deux faces d'une disquette de 
trois pouces et demi. Les lecteurs 
de Pom's ont pu faire sa 
connaissance dans cette même 
rubrique du précédent numéro. 
L'appareil (utilisable sur Apple //c 
et //e) serait rebaptisé Unidisk 
3.5. Prix espéré : moins de 4000 


CNTR+1 
57 LDY #$38 
58 
59 SCANLUP JSR GETBYTE 
60 INY 
61 JSR GETBYTE 
62 INY 
63 INY 
64 INY 
65 CPY #$ca 
66 BNE  SCANLUP 
67 
68 DA CNTR+1 
69 LDY CNTR 
70 JMP GIVAYF 
71 
72 
73 GETBYTE LDA VTOC,Y 
74 JSR SHIFT 
75 CLC 
76 ADC CNTR 
77 STA CNTR 
78 LDA CNTR+1 
79 ADC #0 
80 STA CNTR+1 
81 RTS 
82 
83 *....scrsnnsmcenussessssnse 
84 
85 SHIFT STX REGX 
86 LDX #0 


BITCNTR 


Francs. À noter qu'une version 
"Duodisk" (avec deux lecteurs et 
1,6 Méga-octet) est utilisée par 
les développeurs travaillant sur 
produits Apple aux Etats-Unis. 


La deuxième nouveauté attendue 
est une carte d'extension de 
mémoire. À l'image de la carte 
d'Applied engineering, mais 
vendue par Apple, elle permet 
d'étendre la mémoire vive de 
l'Apple //e jusqu'à 1 Méga-octet. 
Plus que le Mac ! 

Et ça n'est pas tout. La revue 
InfoWorld, généralement bien 
informée sur le dessous des 
cartes (d'extension) en a encore 
recensé d'autres. Celle notam- 
ment permettant de connecter 
l'Apple // au réseau Appletalk, lui 
ouvrant ainsi des possibilités de 



























LDX 


89 
90 SHFTLUP ASL 
91 BCC SHIFTI 
92 INC BITCNTR 
93 SHIFTI DEX 
94 BNE SHFTLUP 
95 
96 LDA BITCNTR 
97 LDX REGX 
98 RTS 
939 
100 BITCNTR HEX O0 
101 REGX HEX 00 
102 CNTR HEX 0000 
103 


104 KAXXXXXX AA E KA RAR KR NON ON NOK X 
105 
106 READVTOC LDA #$11 


107 STA $B7EC 
108 LDX #0 
109 STX  $B7ED 
110 STX $B7EB 
LLL INX 

112 STX $B7F4 
113 LDA #VTOC 
114 STA $B7FO0 
115 LDA #>VTOC 
116 STA $B7F1 
LT LDA #$B7 
118 LDY +#$E8 


$B7B5 
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communication avec le Macintosh 
(c'est banal) et avec l'IBM PC (ça 
l'est moins). 


Reste qu'avec leurs baisses de 
prix, les IBM et compatibles (et 
notamment le Tandy) sont 
pratiquement au même prix que 
l'Apple //. Comment concurren- 
cer ces 16 bits ? Avec (probable- 
ment l'année prochaine), la 
version "16 bits” de l'Apple //, le 
vaisseau fantôme de la micro- 
informatique : tant de fois annon- 
cé (notamment dans cette 
rubrique) et démenti avec la 
même constance par Apple. 
L'Apple 16 bits, un rêve ? 
Accrochez-vous : ce rêve est déja 


Et le Macintosh É 


S'intéressera-t-on encore au 
Macintosh chez Apple, avec cette 
avalanche de nouveautés pour 
l'Apple // ? Probablement. 

Apple a fermé l'usine qui devait 
construire les disques durs. Il 
faudra donc que Cupertino ait 
recours à la concurrence pour 
fournir : 


+ un disque dur serveur (plus de 
20 Mégas) pour l'utilisation au 
bureau avec le réseau Appletalk 

. un disque dur de 10 à 20 
Mégas pour le Macintosh (les 
pourparlers continuent avec 
General Computer Co pour 
l'éventuel montage de l'Hy- 
perdrive dans le Mac, mais 
plusieurs fabricants sont en 
compétition). 

Par contre, c'est chez Apple que 

sont actuellement mises au point 

de nouvelles ROM permettant la 
gestion d'informations stockées 
sur disques laser “compact disk" 
et une nouvelle version du 

Finder, encore plus rapide que la 

version 4.1. Les nouveaux 

lecteurs de disquettes double face 

(800Ko) seront eux aussi 

rapidement disponibles pour le 

Macintosh. 


Par ailleurs, on étudie de 
nouvelles versions du Macintosh. 
Un Mac haut de gamme "ouvert" 
permettant l'insertion aisée de 
cartes d'extension et de disque 
dur serait sur la table à dessin, 


réalité. Grâce à deux cartes 
d'extension. 


La première, la MAX 816 de 
Micro Magic, contient un 
processeur 65816 cadencé à 4 
Mhz. La carte contient en plus 
256K de mémoire vive (extensi- 
ble à 1 Méga-octet, mais le 
processeur peut adresser 16 
Mégas). Pour faire fonctionner le 
processeur, Micro Magic a 
développé un système d'exploita- 
tion : le MAX OS, basé sur le 
système UNIX et-prévoit d'ajou- 
ter à l'Apple une carte graphique 
(1024 x 1024 points) et un 
contrôleur permettant de gérer la 
mémoire vive en disque virtuel. 





ainsi que le "projet Jonathan” : un 
Mac avec écran couleur et modem 
intégré. 


Une partie de toutes ces 
nouveautés serait distillée d'ici à 
la fin de l'automne. Le Mac haut 
de gamme, et l'Apple // 16 bits 
pourraient être officiellement 
annoncés en janvier, lors de la 
traditionnelle assemblée des 
actionnaires d'Apple. Ils seraient 
alors disponibles en 1986. "1986 
sera l'année de l'introduction de 
nouveaux produits" a dit Del 
Yocam, l'ancien patron de la 
division Apple //, devenu 
responsable de toute la 
production d'Apple. Acceptons 
en l'augure. 


Des logiciels 
pour l'Apple // 


On se désesperait, dit-on, chez 
Apple, devant le manque de 
logiciels créés pour l'Apple //. 
C'est vrai que les développeurs 
préfèrent apparemment travailler 
pour le Mac. Pourtant, tous n'ont 
pas abandonné l'ancêtre. 
Version Soft mettrait actuel- 
lement la dernière main à un 
incroyable "Finder", offrant sur 
l'Apple // toutes les facilités 
présentes habituellement à l'écran 
du Macintosh. Il ne resterait plus 
ensuite qu'à créer des logiciels 
exploitant ce Finder, et notam- 
ment un "MacWrite" pour l'Apple 


Une autre carte 65816 disponi- 
ble, celle de Com Log, tourne 
moins rapidement (1 Mhz), mais 
pour 395 dollars seulement. 


Autre nouveauté annoncée par 
InfoWorld : une imprimante Ima- 
geWriter II comprenant notam- 
ment un chargeur de papier 
automatique (fonctionnant aussi 
avec le Macintosh). 


Pour lutter contre la concurrence, 
l'ensemble de la gamme Apple 
connaîtra des baisses de prix 
sensibles (aux Etats Unis, les 
prix aux revendeurs ont déja 
baissé cet été de 4%. Ce ne serait 
qu'un début). 





/1. Version Soft vient d'ailleurs de 
remporter un succès qui lui 
permet "d'assurer" : son logiciel 
de communications avec utilisa- 
tion de la souris (Version Com) 
a été choisi par Apple pour être 
inclu dans une promotion 
comportant le modem Sectrad et 
un manuel de communications 
écrit par Jacques Jean Bessières. 
Ordinateur Express, le dis- 
tributeur de Jane, qui fut le 
premier programme intégré avec 
souris (hélas, trop léger), pour 
l'Apple // propose Janet, un petit 
programme pour apprendre la 
dactylographie, et étudie la 
possibilité d'améliorer Jane (for- 
mats de lettres pré-établies et de 
feuilles de calculs toutes faites, 
formats de gestion des cartes de 
crédit, date d'expiration des 
appareils ménagers, archives 
d'articles de presse etc... ainsi 
que l'élargissement de la feuille 
de calculs du tableur et des fiches 
du tableur). 

Chez Controle X, on met aussi 
la dernière main à une gestion de 
fichiers facile à utiliser, emplo- 
yant notamment la souris. 

De l'autre côté de l'Atlantique, les 
amateurs de programmation 
lorgnent avec interêt sur le 
compilateur C de Manx Soft- 
ware Systems, (enfin disponi- 
ble pour le Prodos). Cette firme 
met la dernière main à une 
version 65816 (pour l'Apple // 16 
bits) de son compilateur Aztec 
C. Enfin, Manx propose une 
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gamme étendue de cross- 
compilateurs VAX, MS DOS, 
Macintosh, CP/M à destination 
de l'Apple //. 


Broderbund se prépare à lancer 
Fantavision, un programme 
permettant de réaliser des dessins 
animés : on dessine des images 
(par exemple un bonhomme avec 
un bras tendu le long du corps et 
une autre le bras levé), et 
l'ordinateur se charge de réaliser 
toutes les images correspondant à 
la décomposition du mouvement. 
De tels programmes existaient 
déja, mais pour des mini- 
ordinateurs valant plusieurs 
millions de dollars. 


A remarquer, enfin, une nouvelle 
version du jeu d'échecs Sargon 
III d'Hayden utilisant la souris. 
L'Apple // ressemble, c'est déja 
vrai, de plus en plus au 
Macintosh. 


Des disques durs 
pour le Mac 


En attendant celui "officiel" 
d'Apple, les disques durs se 
multiplient. 


Le Macbottom de Personal 
Computer Peripherals, d'une 
capacité de 10 Méga-octet 
s'installe juste sous le Macin- 
tosh : sa taille correspond préci- 
sément à celle de la base du 
micro-ordinateur (son épaisseur 
est inférieure à 7 cm). Il se 
branche indifféremment sur la 
sortie modem ou imprimante du 
Mac. On peut le partitionner en 
volumes de taille variable, enfin, 
un "spooler" incorporé permet de 
continuer à travailler avec l'ordi- 
nateur pendant que l'imprimante 
fait son office. 


Le Paradise Mac 10 de 
Paradise Systems offre une 
capacité formattée de 10 Méga- 
octet, et se place à côté du Mac. 
Sa largeur : 3,5 pouces. Vitesse 
garantie : 5 fois plus vite qu'une 
disquette (vitesse de rotation : 
3600 tours/minute). Prix : 1500 
dollars. 

Quant au Sider de First Class 
Peripherals, les lecteurs de 
Pom's avaient déja lu sa 
description pour l'Apple //. Le 
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voici disponible pour le 
Macintosh : Technologie Win- 
chester, 10 Méga-octet. Et surtout 
un prix "canon" : 695 dollars. 
L'appareil qui est vendu par 
correspondance aux Etats-Unis y 
fait un malheur. A ce prix, rien 
d'étonnant. 


Remplacer 
la souris 


On avait déjà tout essayé pour se 
débarrasser de la souris : joy- 
stick, crayon et tablette 
graphique, numériseur. On 
croyait avoir tout vu. Eh bien il 
manquait encore à l'appel le 
VCS (View Control System) de 
Personics Corporation. Quel 
bizarre ustensile : un casque qui 
s'installe sur le crâne de 
l'utilisateur du Macintosh. Un 
émetteur à ultra-sons s'installe au 
dessus du Macintosh. Il suffit 
ensuite de fixer du regard le point 
où l'on souhaite que le pointeur 
se déplace sur l'écran : le casque 
reçoit le signal ultra-sonore, les 
changements dans la rotation et 
l'angle de la tête de l'opérateur 
sont transmis au Macintosh. Pour 
cliquer, on utilise un bouton qui 
se colle sur le clavier, juste en 
dessous de la barre d'espace- 
ment. Le produit paraît loufoque, 
mais ce n'est pas un poisson 
d'avril. Prix : 199 dollars. 


Des logiciels 
pour le Mac 


Avec, pour commencer, Mac- 
Tell 2 de Hello Informa- 
tique. Cette nouvelle version 
permet toujours de transformer 
Macintosh en un Minitel 
intelligent, mais donne aussi la 
possibilité d'utiliser l'ordinateur 
comme terminal ASCII (et donc 
d'avoir accès à Calvados et au 
Club Apple) sans avoir à quitter 
le programme. Parmi les 
améliorations : un éditeur local 
permettant de lire, mettre en 
forme, ou rédiger un texte, à 
l'intérieur du programme, 
l'amélioration des procédures 
automatiques, la possibilité de 
transférer directement des 


données dans Multiplan, l'envoi 
et la réception de fichiers (textes 
ou binaires), l'impression des 
procédures et textes édités, le 


réglage du mode de communica- 


tion, une commande de suppres- 
sion d'écho (pour la frappe des 
mots de passe), un mode veille 
(pour éviter le raccrochage 
automatique de Transpac), et une 
horloge affichée à l'écran avec 
chronomètre (au prix des 
communications, les mordus du 
Minitel apprécieront). En utilisa- 
tion ASCII, on peut communi- 
quer à 1200 bauds (même avec le 
modem Sectrad/Apple), on peut 
avoir accès aux procédures 
automatiques et au service de 
tracé de courbes Graphis de 
Calvados, configurer le clavier, 
régler l'affichage, sauvegarder 
l'écran ou le texte directement sur 
disque , imprimer en continu les 
lignes reçues, l'écran ou le texte 
sélectionné. 

Bref, ce programme qui était déjà 
le meilleur outil émulant le Minitel 
sur Macintosh est désormais l'un 
des plus complets des program- 
mes de communication. 


Des logiciels 
craphiques 


Et d'abord VideoWorks de 
Hayden. Un logiciel fantastique 
qui vous permettra de réaliser en 
deux coups de cuiller un dessin 
animé de plusieurs minutes. Ce 
dessin peut ensuite être sonorisé 
avec de la musique. 

Les applications sont nom- 
breuses : animation de vitrine, 
présentation animée d'une 
courbe, de l'évolution d'un 
produit, d'une tendance. En 
filmant avec une caméra l'écran 
du Macintosh, on peut réaliser un 
film animé. 

Ce programme est vraiment 
capable de mettre en mouvement 
n'importe quoi. Il inclut aussi 
deux accessoires bien utile : l'un, 
Art Grabber, installé dans le 
menu pomme, permet d'ouvrir un 
dessin MacPaint de l'intérieur du 
programme. Le second Cheap 
Paint permet de retoucher le 
dessin sans avoir à utiliser 
MacPaint. Prix : 79 dollars. 





70 





Vraiment pas cher par rapport aux 
possibilités de ce programme. 


On peut aussi ouvrir des dessins 
de MacPaint de l'intérieur d'un 
programme avec QuickPaint, 
un petit utilitaire produit par 
Enter Set. Une fonction 
"Miniview" permet de consulter 
tous les dessins d'une disquette. 
On peut ensuite agrandir le 
dessin, puis la partie de dessin 
intéressante, et la couper ou la 
copier. Prix : 50 dollars. Le 
même éditeur vend aussi 
QuickWord, un utilitaire per- 
mettant de créer un glossaire dans 
MacWrite. Prix : 60 dollars. 


Un autre programme permettant 
de réaliser des animations est 
produit par Ann Arbor Soft- 
works, c'est In Motion. Les 
actions à réaliser sont représen- 
tées par des icônes. Le program- 
me est livré avec TotalPaint, un 
outil de dessin comportant la 
plupart des fonctions de Mac- 
Paint, et bien sûr des sons, à 
ajouter aux graphiques. 

Enfin, PaintCutter de Silicon 
Beach Software est l'un des 
outils inclus sur une disquette 
appelée Accessory Pak 1, 
PaintCutter permet d'ouvrir un 
dessin MacPaint sur toute la 
surface de l'écran (ce qui n'était 
hélas pas possible avec Mac- 
Paint). Une option permet de 
réaliser des écrans de démarrage, 
on peut aussi recopier dans un 
document MacWrite des docu- 
ments plus larges que la surface 
de l'écran. Ce programme est 
utilisable avec le Switcher. Prix : 
40 dollars. 


Pour le travail 
sérieux 


A noter : la nouvelle version (1.1) 
de Think Tank 512K. Cette 
version comporte des caractères 
différents, fonctionne avec le 
Switcher, et est désormais 
compatible avec Word et 
MacWrite. 

Remarquable la nouvelle version 
d'Overview de ProVue. Cette 
base de données est désormais 
relationnelle, permet de classer 
dans l'ordre alphabétique un état 
de 20 pages en deux secondes, de 





réaliser des graphiques. Les 
données peuvent être importées 
ou exportées de MacWrite, 
Muitiplan, MacTerminal, Lotus 
123, Appleworks, dBase II, 
etc, une fonction Clairvoyance 
permet à l'ordinateur d'entrer 
correctement un mot où un nom 
qu'on a déja utilisé, en tapant 
seulement quelques unes de ses 
lettres : une sorte de glossaire 
automatique. Ce programme 
comporte aussi des macros 
commandes permettant de réaliser 
des programmes automatiques. 
Bref, cette base de données 
relationnelles et automatisable est 
de la race des nouveaux program- 
mes sortis en ce début 
d'automne, comme Omnis 3, 
Quatrième dimension et Mac 
Base 500. Son prix : 295 
dollars. 


Une rumeur persistante affirme 
que Aston Tate, le créateur de 
Frameworks, l'un des plus 
intelligents des programmes pour 
l'IBM serait sur le point de sortir 
une version de ce programme 
pour le Mac, utilisant toutes les 
ficelles des fenêtres, menus, etc. 
Si c'est vrai, ça va faire mal ! 


De son côté, Microsoft ne met 
pas tous ses œufs dans le même 
panier. D'un côté, il s'apprête à 
vendre Excel, porte-drapeau des 
programmes ‘"anti-intégrés" de 
l'autre, il met la dernière main à 
Productivity Software's 
Mouseworks : un programme 
intégré comprenant traitement de 
texte, base de données, et tableur, 
qui serait au Mac ce 
qu'Appleworks est à l'Apple //. Il 
est vrai que l'équipe du créateur 
d'Appleworks - Rupert Lissner - 
a rejoint Microsoft au printemps 
dernier. Prix prévu pour ce 
programme : 295 dollars. 


Intégré ou non ? 


C'est donc le débat de cette 
rentrée. En clair : vaut-il mieux 
construire des programmes 
gigantesques et intégrés offrant 
toutes les fonctions imaginables 
(mais pas toujours à leur 
maximum), ou est il préférable 
d'utiliser simultanément plusieurs 
programmes dont chacun est le 
meilleur dans son domaine, en les 


faisant fonctionner ensemble avec . 
le Switcher ? (Rappelons que le 
Switcher, développé chez Apple 
permet de partitionner la mémoire 
d'un Macintosh de 512Ko en y 
installant plusieurs programmes, 
qui peuvent communiquer entre 
eux). 


Avec Jazz, Lotus a choisi la 
première option. Las ! Ses 
premiers utilisateurs commencent 
à s'aviser que la base de données 
est un peu ‘"simplette”, que le 
tableur ne comporte même pas la 
possibilité de lier entre elles des 
feuilles de calculs, que les 
“macros” (commandes automati- 
sées) sont absentes. 


Avec Excel, MicroSoft a 
précisément choisi l'option 
inverse. Ce tableur où seuls les 
graphiques sont intégrés offre ce 
qu'on peut réaliser de mieux dans 
le domaine (et notamment ces 
fameuses "macros"). Pas de 
traitement de texte ? Peu importe. 
On utilise Excel et Word avec le 
Switcher (et bien sûr un 
Macintosh de 512K0) et on ajoute 
au meilleur des tableurs, le 
meilleur des traitements de texte. 
Une fraction de seconde suffit à 
transférer des données ou des 
graphiques d'Excel dans Word. 


Les programmes intégrés sont 
devenus de véritables monstres. 
Les lignes de programme sont si 
nombreuses, que l'utilisation de 
nombreuses disquettes s'impose 
de toutes façons. Le "débuggage" 
se fait problématique. Et, au bout 
du compte, les utilisateurs 
disposent de fonctions qu'ils 
n'utilisent pas forcément. 

Le Switcher leur rend la liberté de 
choisir le meilleur programme de 
sa catégorie, et de l'associer avec 
un autre programme, lui aussi 
excellent. La possibilité d'étendre 
à 1 Méga-octet la mémoire vive 
du Macintosh donnera à ce 
véritable "pont inter-program- 
mes" toute sa valeur. Or, 
précisément, le Switcher, qui en 
est déja à sa version 3.9, se 
perfectionne. Il serait notamment 
capable désormais de faire 
fonctionner le Macintosh en 
"multitâches". En clair, même si 
on fait basculer le Macintosh sur 
un des programmes du Switcher, 
les autres programmes continuent 





Pom's n° 20 








à fonctionner. On peut ainsi, par 
exemple commencer à écrire un 
texte, pendant que le tableur 
recalcule des formules. Si avec le 
Switcher, le Mac accède au rang 
d'ordinateur "multitâches", la vie 
des programmes intégrés risque 
de devenir décidément très 
difficile. 


Adresses 


Micro Magic 
Millersville, MD USA 


Com Log 
Scottsdale, AZ 


Manx Software Systems 
Box 55, Shrewsbury, NJ 07701 


Version Soft 
66, rue Castagnary - 75015 Paris 


Controle X 
94, rue Lauriston - 75016 Paris 


Ordinateur Express 
3, rue Pelouze - 75008 Paris 


Hayden 
600 Suffolk Street Lowell, 
MA 01854 


Personal Computer 
Peripherals Corporation, 
6204 Benjamin Road Tampa 
FL 33614 


Paradise Systems 

Tél. : (800) 5527 7977 
en Californie 

First Class Peripherals 
3579 Highway 50 East, 
Carson City NV 89701 


Personics Corporation 
2352 Main street, Concord 
MA 01742 


Hello Informatique 
1, rue de Metz - 75010 Paris 


EnterSet 
410 Townend St, San Francisco, 
CA 94107 


Ann Arbor Softworks 
308 1/2 S. State Street, 
Ann Arbor MI 48104 


Silicon Beach Software 
PO Box 261430 San Diego, 
CA 92126 


ProVUE 
222 22nd St, Huntington Beach, 
CA 92648 . 
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Courrier 


des lecteurs 


Je voudrais vous signaler un truc 
au sujet des masques ; il est 
annoncé dans Pom's qu'ils 
occupent 6 secteurs sur la 
disquette. En fait, on peut faire 
entrer un en S secteurs très 
facilement. Il suffisait de se 
souvenir (ces informations m'ont 
été fournies par le livre "Beneath 
Apple Dos") qu'un fichier 
requiert un secteur seulement 
pour la liste des pistes/secteurs. 
Or, les $400 (1024) adresses de 
l'écran devraient tenir en 1024:4 
= 4 secteurs, donc au total S. 
D'où vient le secteur supplé- 
mentaire ? Il y a deux raisons : 
premièrement, un fichier binaire 
commence par 4 octets indiquant 
l'adresse de chargement et la 
longueur. En plus, un bug du 
Dos (signalé dans le livre précité) 
fait qu'il y a toujours un octet de 
trop écrit dans un fichier. Quels 
sont les remèdes pour éliminer 
ces 5 octets qui débordent ? On 
sait depuis le n° 1 qu'un écran 
texte est criblé de "trous" de huit 
octets, à chaque fin de groupes de 
128 octets. La fin de l'écran 
coïncide justement avec ces octets 
superflus, c'est-à-dire que la 
vraie fin de l'image texte est à 
$7F7 (dernier octet). Donc, la 
longueur utilisable est de $3F8 et 
non $400. Pour corriger 
Gesmask, il suffit de modifier la 
ligne 605 en remplaçant le 
paramètre "L1024" par "L$3F8". 
Pour Gesmask Modifié, ce sera la 
ligne 609. Il faut noter que cette 
astuce marche aussi pour les 
images HGR : on peut les stocker 
en 33 secteurs avec : BSAVE 
nom, A$2000 (ou 4000 pour 
HGR2), L$FFS. Enfin, une autre 
astuce pour de beaux listings. En 
écrivant des REM, et en les 


Olivier Herz 


listant, on est forcé de voir 
imprimer les "REM" avec leur 
numéro de ligne. Il existe une 
astuce facilement accessible avec 
un /le ou c, qui consiste à insérer 
des caractères Del (ASCII 127), 
ce qui a pour effet sur la plupart 
des imprimantes (du moins sur 
Epson), d'effacer un caractère du 
buffer. Il faut donc écrire, juste 
après une REM, 6 caractères Del 
plus le nombre de Del 
correspondant au nombre de 
caractères qui forment le numéro 
de ligne, ni plus ni moins. 

Une petite annonce : j'ai trouvé la 
solution complète du jeu 
d'aventure Dark Crystal, avec les 
plans et tous les détails. Si vous 
êtes coincés, écrivez-moi et je 
vous repêcherai. Sachez en tout 
cas que le gros bon sens règne 
dans ce jeu : les endroits 
intéressants sont tous marqués 
d'un indice particulier. Bonne 
chance ! 


Thierry HAN 
Ambassade de Corée 
B.P. 301, 

Yaoundé CAMEROUN 


Sans doute avez-vous remarqué 
qu'avec le DOS 3.3, lors de la 
lecture d'un fichier TEXT avec 
MON ÎI actif, les minuscules 
apparaissent sous forme de 
caractères en inverse. Ce n'est 
pas bien grave, mais il me semble 
que l'on puisse y remédier. 
L'instruction 9FAA - STA 
$AASC semble inutile puisque 
l'accumulateur contient justement 
le caractère stocké en SAASC. Je 
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propose donc le patch suivant : 
9FA7: EA NOP 
9FA8: 09 80 ORA #$80 
9FAA:20C59F  JSR $9FCS 
Yvan KŒNIG 

Mosaïque GERBINO 


4, avenue du Stade 
06220 VALLAURIS 


D'après le "Reference Manual" et 
bien d'autres écrits, les mémoires 
$C000 à CO0F sont équivalentes. 
Pourtant, en étudiant certains 
programmes professionnels 
(Print Shop, Dbmaster, par 
exemple), on rencontre des 
choses telles que : 

STA $ C000 

STA $ C00C 

STA $ CO0E etc. 

Est-ce simplement une coquetterie 
ou y-a-t-il une raison ? 


Bernard GIBERT 

clo Total-Indonésie 
P.0. Box 6 

BALIK PAPAN 

EAST KALIMANTAN 
INDONESIA 


Il est exact que sur l'Apple II+, 
les adresses $C000 à $CO0F 
(KEYBOARD) et $C010 à 
$C01F (KEYBOARD STROBE), 
sont identiques. Mais il n'en est 
plus du tout de même sur le //e et 
le //c. Vous trouverez ci-contre 
les adresses du //e telles qu'on les 
extrait à divers endroits du 
Manuel de Références.= 


En raison de besoins très 
particuliers, j'ai été amené à écrire 
moi-même un programme de 
gestion de fichiers en accès 
direct. Il est écrit en Applesoft, 
sous DOS 3.3. J'utilise pour le tri 
la “routine de tri rapide en 
assembleur", parue dans le n°11 
de Pom's. L'ensemble, très 
facilement adaptable, me donne 
entière satisfaction. Or, voici que 
j'ai un nouveau fichier à écrire 
qui atteindra, et même 
probablement, dépassera le 
Méga-octet. Tout naturellement, 
j'ai pensé à utiliser ProDOS. J'ai 
pu, sans problème, transférer le 
programme basic et l'adapter à ce 
nouvel environnement. Par 


adres  leclécr 


KEYBOARD $C000 + 
80STORE off  SCO00 
v on  $CO01 
off  $C002 
on $C003 
RAMWRT off  $CO04 
Le on  $C005 
SLOTCXROM off $C006 
on $C007 
ALTZP off : $CO008 


on $C009 


SLOTC3ROM off S$CO0A 
on  $CO0B 

80COL off  $CO0C 
® on  $CO0D 
ALTCHARSET off S$COOE 
on S$CO0F 

KBDSTRB $co10 
$Co10 
$co13 
$CO14 
$Co1s5 
$CO016 
$co17 
$co18 
$co19 


$COIA 
$Co1B 
$Co1C 
$CoiD 
$COIF 


$CO050 
$Ccos1 

$cos52 
$Cos3 
$C054 


$Co55 


$C056 





nouvel environnement. Par 
contre, je ne sais comment 
adapter la routine de tri. 
Pourriez-vous me conseiller ? 


fonction 


lecture du clavier 

utiliser RAMRD/RAMWRT 

accès aux pages d'affichage par PAGE2 
lire en mémoire principale 

lire en mémoire auxiliaire 

écrire en mémoire principale 

écrire en mémoire auxiliaire 

ROM interne en $Cx00 

ROM d'un périphérique en $Cx00 

pile, page 0 et carte langage en mémoire 
principale 

pile, page O et carte langage en mémoire 
auxiliaire 

ROM interne en $C300 

ROM d'un périphérique en $C300 
affichage en 40 colonnes 

affichage en 80 colonnes 

ensemble primaire de caractères 
ensemble alternatif de caractères 


remise à O du clavier 

lire l'état de ALTCHARSET 
lire l'état de RAMRD 

lire l'état de RAMWRT 

lire l'état de SLOTCXROM 
lire l'état de ALTZP 

lire l'état de SLOTC3ROM 
lire l'état de 80STORE 

lire la suppression verticale (POM'S 17 
page 54) 

lire l'état de TEXT 

lire l'état de MIXED 

lire l'état de PAGE2 

lire l'état de HIRES 

lire l'état de 80COL 


mode graphique 

mode texte 

mode non-mixte 

mode mixte 

accès page 1 (si 80STORE est off) 

accès mémoire principale (si 80STORE 
est on) 

accès page 2 (si 80STORE est off) 

accès mémoire auxiliaire (si 80STORE 
est on) 

accès basse résolution (si 80STORE est 
off) 

PAGE2 commute la 
80STORE est on) 
accès haute résolution (si 80STORE est 
off) 

PAGE2 commute 
80STORE est on) 


page texte (si 


aussi le hires (si 


Georges DELARUE 

2 Chemin des Chambons 

38650 MONESTIER DE 
CLERMONT 
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Le programme TRITABLEAU. 
OBJO est compris entre les 
adresses $9AA6 et $9C3A ; 
c'est-à-dire en plein milieu des 
buffers du DOS. Par conséquent, 
il ne peut marcher tel quel sous 
ProDOS, et il faut le faire 
fonctionner à un autre endroit. 
Transférons, par exemple, en 
$90A6-$923A. Deux méthodes 
sont possibles : 
- si vous avez l'assembleur 
ToolKit, changer la ligne 28 du 
fichier source en ORG $90A6 et 
réassembler, 
- sinon, faire les opérations 
suivantes : 
BLOAD TRITABLEAU.OBJO, 
A$90A6 
90AC:90 
90CE:90 
90FB:92 
911D:92 
BSAVE 
de EAORERAUR 
195 
Il ne reste plus qu'à transférer 
TRITABLEAU.OBJO et 
éventuellement les programmes 
de démonstration en Applesoft 
sur une disquette ProDOS. II 
faudra faire commencer tous les 
programmes Applesoft utilisant la 
routine tri par HIMEM:37030 
($90A6=-37030), afin de ne pas 
écraser la routine avec les 
variables des programmes 
Applesoft. 


De nombreux lecteurs nous ont 
demandé une récapitulation des 
sujets abordés dans cette 
rubrique. 


Nous vous proposons donc 
ci-contre une liste classée par 
mot-clef des principaux sujets 
abordés. Cette liste, non exhaus- 
tive, renvoie aux différents 
numéros de la revue ou aux 
recueils. 





Nous vous laissons juges du 
caractère arbitraire du choix des 
mots servant de clef. 


15 APA : Un bug corrigé 

18 AppleMouse II 

14 Applesoft, Moniteur et Carte 
langage 

15 AppleWriter : Un truc 

14 AppleWriter et 
FX80/FT 

10 AppleWriter //e (Patch pour 
code ASCII 0) 

R2 Astérisque en Pascal 

19 Basicium et ProDOS 

16 Beep amélioré 

17 Calculs financiers 

11 Calendrier perpétuel sur 
Visicalc 

10 Carte mémoire Apple //e 

13 Chat Mauve 

12 Chat Mauve et Epson 

10 Chat Mauve et PFS 

R2 Choose sur Visicalc 

9 Club Apple /// 

R2 Clubs de Paris 

R1 Compacter les programmes 

15 Comparaison de programmes 
Basic 

14 Compatibilité Apple 

10 Contrôle de la carte langage 
sur //e 

16 Copya, Pascal et CP/M 

R1 Curseur en mode Flash 

18 Date ProDOS 

12 217 fichiers par disquette 

14 Del sur Apple //e 

17 DIF.OB)J : Un bug 

17 Disk Manager 2 

17 Disque virtuel 

18 Disque virtuel 64 Ko 

17 Edition de jeux 

16 êen Basic 

15 ê sur Oki 84 

11 Entrées/sorties : reprogram- 
mation 

19 Eprom d'Epson 

18 Exec en Pascal 

18 Gesmask et OKI 82A 

17 Hard Copy 80 colonnes sur 
DMP 


Epson 


10 Hard Copy sur Seïkosha 

12 Hard Copy Texte 

9 Hello Complet et page 3 

13 Gescompte amélioré 

9 Graphiques, quand tu nous 
tiens (Patch pour Epson 
MX-82IIIF/T) 

16 IBM 36 vers Lisa 

18 Icare : comment le charger 

11 Init dans un Exec 

16 Mac et ImageWriter 

R1 Mini-assembleur 

10 "sus sur Seïkosha GP 
1 

9 Moniteur étendu (Patch) 

14 Muitiplan et Centronics 152 

14 Nouvelles touches du //e 

R1i Numéros de volume (neutra- 
liser le contrôle) 

10 Numéros de Volume 
stockage sur la disquette 

13 Matgraph (erratum) 

12 Microcoupures, surchauffe 

14 Pascal 1.1, 1.2. 

12 Peek et Poke : errata 

11 Physique relativiste 

10 PFS et Chat Mauve 

9 Planche à voile ! 

11 Point ON ou OFF sur l'écran 
HGR ? 

13 Poke 214,255 

R2 Poke 333,33 ! 

16 ProDOS et Eprom 2716 

18 Programmation facilitée, en 
80 colonnes 

R2 Programmation facilitée (à 
propos de...) 

16 Purplesoft 

19 Récupérer un écran 80 
colonnes 

R1 Reset 

15 Radiotélégraphie 

R2 Rom LC 

15 Secteurs libres sur disquette 

R2 Splittage des programmes 
Basic 

18 Startup et Date en Pascal 

10 Tdump de fichiers TEXT sur 
écran ou imprimante 

10 Tracé rapide de cercles en 
HGR 

19 Transformer un tableau de 
chaînes en fichier binaire 
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Disquettes 


(cf. Pom'sn° 5) 
(cf. Pom's n° 8) 
(cf. Pom's n° 10) 
(cf. Pom's n° 11) 
(cf. Pom's n° 12) 
(cf. Pom's n° 12) 
(cf. Pom's n° 13) 
(cf. Pom's n° 15) 
(cf. Pom's n° 15) 
MAX (Moniteur étendu) (cf. Pom's n° 18) 
DOMINOS (cf. Pom's n° 19) 


Recueils 


N°1, recueil des revues 1 à 4 
Disquettes d'accompagnement 1 à 4 
N°2, recueil des revues 5 à 8 
Disquettes d'accompagnement 5 à 8 


Anciens numéros 


Revues 4 7 8 35,00 F 
Revues 9 10 11 12 13 14 15 16 17 18 19 20 40,00 F 


Disquettes Apple II, //e, //c 
12 39 4, 5.6.7 8 Q!'10 EX 12 à 55,00F 
13 14 15 16 17 18 19 20 


Disquettes Macintosh 
14/15/16 groupées 150,00 F 


17 18 19 20 à 80,00F 


Abonnements Pour 6 numéros à partir du n°L___] 


Abonnement à la revue seule 200,00 F 
Abonnement revue + disquettes Apple II, //e, //c 480,00 F 
Abonnement revue + disquettes Macintosh 600,00 F 


Total TTC : 
Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 


Envoyez ce bon et votre règlement à : EDITIONS MEV, 64 rue des Chantiers 78000 VERSAILLES 





Imprimerie Rosay, 94300 Vincennes, Imprimé en France. Dépôt légal : Septembre 85. N° 2767 
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Applemania 


Symptômes. 


OUI NON OUI NON 
L. Je veux connaître PRODOS sans être un pro 5. Pianoter des nuits entières, c’est planant. Mais 
du DOS CIC planer tout seul, c’est frustrant. 
2. Ami des bêtes, je cherche un chat à puces pour 6. Je veux relier mon lave-vaisselle à mon Apple II. CIC] 
colorier ma souris en mauve ii | | 
3. Devenir à l'aise comme Blaise en Pascal, quel pied! JL] 7. Appeler un S.O.S. informatique quand 
er | la technique coince, ça dépanne. O0 
4. Mon baud à 7 bits cherche un 8° pour compléter 
son protocole X-On X-Off en vue d’une liaison 8. Je veux apprendre à mieux gérer mon bureau 
durable OCT  enle jetant par les fenêtres de Macintosh. 


3 OUI et MOINS : vous êtes en pleine 4 à 7 OUL : vous êtes contagieux, vous 8 à 10 OUI : bravo, venez d'urgence cultiver 
incubation, prenez des mesures ! serez bien entouré au Club Apple. votre passion au Club Apple. 


Remède : REJOIGNEZ LE CLUB APPLE 


Plein, plein d'avantages vous v attendent : 


- une messagerie électronique gratuite ; - des stages d'initiation et de perfectionnement animés 
par les “gourous” du Club; 
- des voyages organisés en Californie ; 





- un numéro de téléphone pour consulter les ingénieurs 
Apple 7 jours sur 7; 


Hd - une librairie spéciale Club ; É 
- tous les mois, le journal du Club : - un Apple Check pour bénéficier de conditions de 2| 
L'Echo des Apple; crédit Se £ | 
- des conférences, réunions d’information, projections - des rencontres organisées avec d’autres 
privées et rencontres avec des “pros” ; Applemaniaques. 


BULLETIN-REPONSE 
Je désire recevoir, sans engagement de ma part, une documentation complète sur le Club Apple et votre formulaire d'inscription. 
NOM 


ADRESSE 
CODE POSTAL 











FICHES TECHNIQUES détaillées des micro- 
ordinateurs du marché (de 400 à 60 000 FF). 
Le GUIDE MICRO vous fournit une foule de 


renseignements précieux. 


BANCS D'ESSAI approfondis d'ordinateurs et de 
logiciels (gestion, utilitaires, jeux). Le GUIDE 
MICRO prend parti et dit lesquels acheter. 


TABLEAU géant des 125 imprimantes valant moins de 
15 000 FF. Le GUIDE MICRO vous aide à choisir en 
fonction de vos besoins. 


ADRESSES utiles : boutiques, 
clubs, constructeurs. Le GUIDE 
MICRO les répertorie par ordre 
alphabétique et par département. 











2 septembre 1985 : 
LE GUIDE MICRO est vendu 39 FF 
chez votre marchand de journaux. 


Que vous soyiez professionnel ou amateur, chevronné ou néo- 
phyte, le GUIDE MICRO est un « must ». Une aide décisive avant 
l'achat d’un micro ou d’une imprimante. Un outil de référence tout 
au long de l’année. Ne le manquez pas ! 


